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Tous nos informaticiens viennent de I informatique traditionnelle, et en maitrisent toialement les langayes classiques 
Assembleur, coqol. ronmAN ... Ilsutilisent leur professionnalisme el les methodes de Tinformatique pour realiser 
des applications professionnelles en micro-informatique. Nous vendons des micro-ordinaleurs sans programme. 
Nous vendons aussi des micro-ordinateurs avec les programmes. II s'agit de programmes realises par la societe KA. 
dont nous garantissons la qualite et le bon fonctionnement. 

Nos formateurs enseignent rinformatique. L'enseignement de la micro-informatique necessite des formateurs pro- 
fessionnels, suffisamment de materiel pour que chacun puisse pratiquer. un support de cours couvrant non 
seulement l'enseignement diffuse, mars permettant au participant de s'auto-former apres le stage Nous avnns deja 
accueilli de nomtxeux stagiaires. d'horizons el de centr es d'interets divers : chefs d'entrepnse. universitaires, profes- 
sions liberates, informaticiens, musieiens compositeurs, retraites, cadres de granries enrreprises, revendeurs de 
micro-ordinateurs Nqus proposons 5 possibilites ! 



■ stage de 2 Jours 
bases de donnees. 

Comment utiliser les progiciels : 

• bases de donnSes 

• manipulateurs de nombres 
el generaleuis de tableaux 

• genfiratpurs d'etats imprimes 
Application pratique 

(un 48 K + un lecteurde 
disquettes pour deux participants) 
Apres ce stage, on peut generer, 
a partirde progiciels. un 
programme totalement adapte 
a sun application en moins 
rl'une journee de travail. 
Ce stage n6ccssite de connaitre 
la manipulation de r APPLE II, 
ou d'avoir suivi au minimum 
la journee d'initiation, 

Dates 27-28 juin 
29-30 aout 
Prix 2102 F hi 



■ Stage de 1 semaine 
de programmation BASIC. 

tl debute par la journee 

d'initiation 

Lc stage permet 

d'assiniilei la luyique 

dip program matinn 

et de Tapphquer 

(un micro-svsieme48K 

pour 2 participants). 

En (in Oe stage, on sail 

etablir un programme 

de gestion de fictiieravec 

consultation en temps reel. 

Ce stage ne necessite pa*; 

de connaissance de depart 

en informatique 

Dales 

dn 18 an 22 avril 
du16au 20 mai 
du20au 24 juin 
Prix 4245 Fh.t. 



■ Stage 3 jours disquettes. 

Consacre a ^'organisation 
a la programmation et a 
I exploitation de tichiers 
sur disquettes magnetiques. 

atravers I etude du Disk 
Operating System APPLE II 
Trovaux pratiques Sur 
micro-systemes (un 48 K + un 
lecteur de disquettes 
pour deux participants). 
Ce stage necessite : 

• son d'avoir suivi le stage 

de 1 semaine de pruyraiiinialiun 
an prfialahlfi; 

• soil d'avoir une bonne 
connaissance theorique 
et one serieuse pratique 
de BASIC de I APPLE II. 
Dates du 25 au 27 juillet 

du 1 7 an 19 octubre 



■ Journees de sensibilisation 
et stages de formation 
a Paris et en Province. 

us sont organises 
a ia demande 

• d une instance regionale 
telle, par exempie, 

une Chambre de Commerce ; 

• c un 3 r ganismt! 
oe formation 

dans le cadre d un cycle 
Dius vaste de formation. 

Ld bULiele KA 
installs le materiel 
pour la durec 
de la formation, 
assure la formation 
et fournit 

les supports de cours. 



Prix 3378 Fh-t 

■ Journee d'initiation - Uates : 18 avril, 16 mai. 20 juin - Prix 773 F h.t. 
Le nombre de places pou» chaque stage est striclement limilo, d tj foib puur la quolitc do I'onsetgnernent el pat les contrainies du materiel 
Deux animaieurs sont presents puut aider itfs participants a la iealisation de leurs programmes 
Un support de cours tres compiet est remis a chaque participant 
Pour la journee 6 initiation et pour les stages les dejeuners sont pns en commun et compris. 




I'informatique douce* 

Renseignements et inscriptions a KA - Programme detaiiie sur demande. 

212 rue Lecourbe 75015 Paris - Tel. 533.13.50. 

Le calendrier 83 est disponible. 

•••L'tnformatique douce" esl une marque deposee de fa societe KA 
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Carte MEM/DOS 6502 

LE SYSTEME D'EXPLOITATION 
DU 6502 - MONOPOSTE/MULTIPOSTE 



La division de la longueur des program- 
mes par 20. 

• La possibility reelle de dessiner ses mas- 
ques de saisie ou d'impression. 

• Une independance totale de la peripherie 
choisie par rapport au systSme. 

• Lintegralite du systSme contenu sur une carte 
m§moire de 20 K. 

• Une gestion de m6moire de 140 K a 120 megas. 

• Des utilitaires determinants 

- un gen^rateur de programmes de ges- 
tion de fichiers permettant meme le sequentiel 
indexe multic16 

- un generateur d'ecrans. 



• CALL FN, une nouvelle commande basic, tres 
puissante, integree au systeme permettant 
I appel des sous-programmes par noms avec 
passage de parametres et variables locales. 

• Une version multiposte assurant la mise en 
commun totale des ressources sans conflit et 
Tautonomie des postes intelligents disposant 
de leur propre unite centrale. 

» Des programmes compatibles APPLE j[ et 
APPLE ///automatiquement transferases sur 
COMMODORE 8096. 

• Et pour demain, des logiciels developpes 
aujourd'hui directement compatibles avec le 
reseau local memnet. 
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Editorial 



Apres des mois et des mois d'attente, nous avons enfin vu le 19 janvier les nouveaux produits 
d'Apple, le lie et le Lisa. Bieii entendu, nous uous en parlons dans ce seplierne numero de Pom's. 
Par opposition an dernier nump.ro. dans lequel nous hour nunns nffert phisipurs longs articles, nous 
vous proposons rci de nombnsux articles de.tous semes. Les amateurs de Pascal peuve.nl se rejouir, 
ils trouveront trois programmes ecrits*dans leur langue ! 

Trois contributions assez importantes occuperont uos soirees pendant quelque temps : tout d'abord. 
un generateur de programme du a Denis Sureau, et accompagne d'une application sous jorme de 
test programmable. Ensuite. Olivier Herz nous assene un programme Pascal de cryptographie a clef 
pubiique - grace auquel vous pourrez coder et decoder des messages. Enjin, Gerard Michel 
concurrence le MEM/DOS en vous donnant un programme de gestion de masques dont I'analvse 
devrait permettre de grands progres aux debutants ay ant deja lu ses articles precedents... 

De nombreux autres articles vous apporteront de multiples idles et de non morns nombreux 
programmes. Guy Mathieu nous montre comment exploiter les possibilites graphiques de I'Epson, ce 
doni Olivier Herz s u mspire pour vous aider a ejjectuer des operations logiques sur ies pages 
graphiques. Nous apprennons a utitiserles minuscules dans Visicalc sur Apple 11, puis nous analysons 
la conversion hidirectionnelle entre Apple Writer et des fichiers TEXT. 

Michel Marquis nous propose un programme BASIC de boot pour Her PLE et CRAE (voir le 
numero 1 de Poms) a Fallumage de I'appareil et un programme de dump en Pascal. Philippe 
Francois apprend aux programmers en assembleur comment realiser des programmes relogeobles. 
Regis Lardennois nous enseigne une securite pour I'utiiisation du directory Pascal. Bruno Lemaire 
et Gilles Mauffrey onf analyse le moniteur de I' Apple 111 et nous donnent quelques bonnes adresses. 
Quand a Olivier Herz, il propose encore un programme de Hard Copy pour Seikosha et un jev (les 
quatre ponts) : avec un autre auteur comme lui. Pom's pourra devenir mensuel ! 

Suite aux nombreuses questions des lecteurs relatives aux programmes FID et MUFFIN, Alexandre 
Duback apporte quelques explications sur leur mode d'emploi. Vous trouverez aussi dans ce numero 
un banc d'essai de I'Apple He (Jean-Francois Duvivier est de retour parmi nous), une presentation 
du Lisa, une anafyse du programme Multiplan et du programme d'apprentissage du BASIC d 'Andre 
Finot. 

Nous rappelons aux nouveaux lecteurs qu'une disquette facultative en DOS 3.3 accompagne chaque 
numero de Poms. Cette disquette reprend tous les programmes de la revue, agrimentes 
duplications, d'un generique (souvent) et de programmes de demonstration (parfois). Les 
disquettes peuvent etre commandees separement. 

Le recueil numero 1 de Pom's regroupont les quatre premiers num&ros est en train de « partir » d 
toute vitesse- Attention, nous n'en avons tire que 5 000 I On peut commander les trois disquettes du 
recueil sipariment pour 150 francs (voir le bulletin). 

Nous vous remercions de continuer a nous {aire confiance et encourugeuns lous les lecieurs qui nous 
envoient leurs contributions. 

Nous vous donnons rendez-vous du 14 au 18 juin a notre stand (T3) au salon Micro-Expo. 



Herve Thiriez 



Out collabore a ce numero : Jean-Jacques Crepy - Alexandre Duback - Jean-Francois Duvivier - Philippe Francois - Oli- 
vier Herz - Yvan Koenig - Regis Lardennois - Bruno Lemaire • Thierry Le Tallec - Michel Marquis - Guy Mathieu - Gilles 
Mauffrey - Gerard Miche! - Denis Sureau - Herve Thirie2 - Jacques Tran-Van. 
Redvcteur . Oliviei Herz — Dessins . Laurent Bidol. 

Directeur de la publication - redacteur en chef : Herve Thiriez - Siege social et abonnernenti : Editions MEV - 49, rue 
Lamartine - 78000 Versailles - Redaction : 59, bd de Glatigny - 78000 Veisailles - Tel. . (3) 918.13.07 - Cuurrier des 
lecteurs (logic'iel) : Olivier Herz - 17, rue du Gros Chene - 443U0 Nantes. 

Regie publicitaire : Force 7 - Anne Jourdan - 39. rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tel. : (1) 
238.66.10. 

Diffusion aupres des boutiques et llbraines : Editions du PSI - 41-51. rue Jacquard - B.P. 86 - 77400 Lagny-sur-Marne. 
Composition - Impression - SIM - 52. rue. Servan - 75011 Paris - Tel : (1) 357 51 20 
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CTRL - % - RESET 

(ou les arcanes du Monitor Apple III) 



Bruno Lemaire - Gilles Mauffrey 



Tout utilisateur d'Apple ///. surtout 
s'il a aussi utilise un Apple II, s'est 
sans doute pose au moms une fois 
les questions suivantes : qify a-t-il 
derriere le rempart mysterieux du 
SOS ? Peut-on utiliser le langage 
machine de l'Apple ///aussi commo- 
dernent que celui de son petit frere, 
puisqu'ils utilisent tous deux le 
meme processeur, le 6502 ? 

Nous allons done essayer de donner 
dans cet article quelques eclaircisse- 
ments sur ['utilisation et 1'implanta- 
tion memoire des principals routi- 
nes moniteur de l'Apple III. en reser- 

vant o un orticle ulterieur la presen 
tation de la structure du SOS. 

Structure de la memoire 

A. Generalites 

La memoire de K Apple /// peut etre 
consideree comme essentiellement 
composee de zones (banques) de 
32 K-octets ; une exception estfaite 
pour la zone setendant de SF00O a 
$FFBF qui contient normalement le 



moniteur en ROM. mais qui peut 
etre « switchee » pour contenir una 
zone RAM du SOS. 

Le nombre de ces zones est variable, 
et depend de la configuration de 
1* utilisateur. II y a ainsi 4 zuueb pour 
un Apple 128 K. et bien sur 8 7ones 
pour un Apple 256 K. 11 o'y a cepen- 
dant que 64 K directement adressa- 
bles par 1' utilisateur, decomposes en 
une banque « svsteme » allant de 
$0000 a S1FFF. et de $A000 a 
SFFFF, et en une banque utilisateur 
allant de $2000 a $9FFF. Cest cette 
banque qui est « switchable » par 
une simple modification du contenu 
de $FFEF. Ce contenu varie de F0 a 
F2 pour un 128 K, et de F0 a F6 
pour un 256 K. 

Si Ton veut iinpldiiler en memoiie 
un programme machine, on dispose 
done sans ptobleme d'au moins 
32 K, phis une partie de la banque 
systeme non utiliseepar le SOS. 
Par centre, si Ton desire utiliser 
davantage de memoire en modifiant 

Commandes moniteur 



le numero de la banque utilisee, il 
faut veiller a ce que la partie du pro- 
gramme qui veut adresser d'autres 
banques soit sur la banque systeme. 

R. Zones particulieres 

1) En dehors de la page zero tradi- 
tionnelle (reservee pour differents 
pointeurs et pour Tadressage indirect 
du 6502). et de la pile systeme en 
page 1 (de $100 a $1FF), d'autres 
zones font fonction de page zero 
(adressage indirect etendu, unique- 
ment lorsque le SOS est acrif) et de 
pile pour le SOS et pour le pro- 
gramme machine charge au 
moment du boot. 

2) Memoire ecran. 

— Pour le texte. En 40 colonnes, 
elle utilise les positions de $400 a 
57FF. En 80 colonnes, elle utilise 
aussi S800 a $BFF ; les caractercs 
de rang pair sont alors stockes de la 
page S4 a la page $7, les autres 
etant places entre les pages $8et $B. 

— Pour les graphiques. Commence 
en page S20. 



Symbole 


Syntax p 


Utilisation 


CJ 


nG 


Execute le programme cammen$ant en r> 


J 


nJ 


Saute a I'octei n 


s 


orlt»l < m pS 


Recherche "existence d'un octet entre m et n 


M 


n<m.pM 


Copie la zone comprise entre m et p a partir He n 


V 


meme syntaxe que M 


1- Verify) 


u 




Jump en 3F8 pour rnntinp utilkatpur (Ikpr) 


R 


bloc<buU.bu(2R 


Tronsfcre unc zone disque on zone memoire 


W 


bloc<bufl.buf2W 


Fail i'opSioiiuti inverse. Attention : operation potemiellernent dongereuae ! 


nv n (f\ p soni Hps 


arlrpssps en hpxaderirnal bufl * 


t buf2 designent le debut et la fin du buffer de donnees. 



Routines moniteur 

Les debuts de chaque toutine sont 
donnees en hexadecimal ; celles-ci 
sont nominees d'apres la correspon- 
dance qu'elles ont avec celles de 
l'Apple II. 

F9AF. — PR BYTE (print a hexade- 
cimal digit) envoie le con- 
tenu de I'accumuiateur 
sur 1'organe de sortie 

F9B7 — PRHEX envoie le quartet 
bos de I'accumuiateur sur 
1'organe de sortie 

FB7D - HOME 

FBAF - CROUT1 (return with 
clear) : nettoie Fecran a 
partir de la position cou- 



rante du curseur. puis 

appelle CROUT 

( = retour chariot) 
FC06 - COUT 1 : envoie le 

caraclere qui est dans 

racc.timulateur. 
FCD5 - GETLN : collecte une 

ligne de 80 caractere.s 
FD07 - CROUT . envoie un 

retour chariot 
FD0C - KEVIN : lit le clavier de 

l'Apple /// 
FD60 — RDKEY : traite le carac- 

tere saisi au clavier 

Clefs 

Le prefixe « e » est mis pour Escape. 
e.L : nettoie fin de liyne 



(e.E en A II) 
e.P : nettoie has He I'eoran 

(e.F en A II) a partir du 

curseur 
e.S : Home 

e.fleche : deplacement dans le sens 

de la fleche 
e.S : passage en SO colonnes 
e.4 : passage en 40 colonnes 

(pour sortir du mo.de Escape, taper 
deux fois d'affilee sur Escape). 

Nous terminons ici cette premiere 
presentation, remettant a un autre 
article une analyse de la structure du 
SOS. Bien entendu, le titre de cet 
article vous indique la fagon d'obte- 
nir le mode moniteur. II est difficile 
de le decouvrir par Idlomieinents ! 
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Cryptographie a clef publique 

Olivier Herz 



Le programme ci-joint interessera 

sans doute un grand nombre 
d'industriels ainsi que tous ceux qui 
sont preoccupes par le secret de 
leurs communications : il s'agit de 
l'implcmentation sur Apple II cn 
Pascal d"un systeme de cryptogra- 
phie a clef publique dont nous pou- 
vons assurer rinviolabilite rneme 
avec I'aide des plus puissants ordina- 
teurs. Pour Futiliser, il nest pas 
necessaire de connaTtre le langage 
Pascal, mais il faut savoir servir du 
SYSTF.M.FDITOR et du SYSTEM. 
F1LCR. 



Cryptosysteme a clef 
publique 

Dans un cryptosysteme conveiUion- 
nel, I'expediteur et le destinataire rhi 
messaye pobsedenl Luus deux une 
clef secrete (e'est-a-dire un ensemble 
de parametres, habituellement des 
grands n ombres choisis au hasard) 
permettant d'executer Talgorithme 

de codage du message par 1'expedi- 

teur et celui de decodage par le des 

tinataire. Ce message, une fois 
code, peut ctrc transmis par un 
moyen de communication non 
secret, comme la radio, II est clair 
que la fiabilite d'un tel systeme 
repose sur le secret de la clef, qui 
doit etre distribute au moyen de 
canaux surs, afin de ne pas etre 
interceptee. 

Dans un cryptosysteme a clef reve- 
lee (ou publique), on n a pas besoin 
d'un canal secret pour distribuer les 
clefs. Au contraire. chaque utilisa- 
teur possede deux clefs : une clef de 
codage qu'il rend publique et une 

clef de decodage privee . L'cxpedi- 

teur code done le message avec la 
clef publique du destinataire, qui le 
decode avec sa clef privee. L'inviola- 
bilite reside dans le fait qu'on deduit 
tres facilement par le calcul la clef 
publique a partir de la clef privee 
alors que l'inverse exigerait des mil- 
iars H'annees de calcul sur ordina- 
tcur, voire plus ! C'est ce qu'on 
appelle une rnnction a sens unique 
et a gache : ce calcul inverse ne peut 
se faire quV.n r.onnaissant une infor- 
mation secrete, la gache de la fonc- 
tion. 



<X SYSTEME COMPLET DE CRYPTOGRAPHIE A CLEF PUBLIGUEX) 
<X**C <C> OLIUIER HER2 OCTOBRE 1982 POUR POM'SX) 
PROGRAM CRYPTOGRAPHIE i 
USES APPLESTUFF; 
VAR COt"tiANDE : CHAR ; 

PROCEDURE MENU; 
CONST TAILLE =187; 
LUNUUtUN =36; 

ENTI ER =1 NT EGERt LONGUEUR) ; 
CHOIDECA =SET OF CHAR ; 
BS.CR :Crt**R; 
NOM : STRING; 

INVFACTEUR, 
BASE , FACTEUR : ENTI ER ; 
CLEF 

PUBLIQUE 
PRIVEE 
CODE, CLAIR 



TYPE 



VAR 



.TAILLE3 OF EN/T I ER j 



MODTAB 



i ARRAY! 1 . 
TEXT; 

FILE OF ENTIER; 
TEXT; 

i ARRAY! 1 . .LONGUEUR] OF ENTIER; 



(X PROCEDURES HABITUELLES COUR/WTES X) 
<X MERC I MICHEL CR1M0NT! 3() 

<XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

PROCEDURE MESSA6E( I : INTEGER ; S:STR1NG); 
BEGIN G0T0XY<8 f I>; WRITE* S ,CHR< 1 l>) FNu ; 

FUNCTION PRENCAR<:BONSET:CHOIDECA> :CHAR; 
VAR CH :CWR; 
BEGIN 
REPEAT 

READ< KEYBOARD , CH> j IF EOLN< KEYBOARD) TUENCH:-CR; 
IF NOT <CH IN B ONSET) THEN WRITE< CHR< 7) > 
ELSE IF CH INE ' '..'2'] THEN WRITE(CH) 
UNTIL CH IN B ONSET ; 
PRENCAR t-CH 
END; 

PROCEDURE OUT< S: STRING) ; 

UAR CH i CHAR | 

BEGIN 

CLOSEC PRIVEE) ; CLOSE< PUBLI QUE) ; CLOSE<CODE); CLOSE ( CLAIR) J 
PAGEC OUTPUT) ; MESSAGE< 18 ,S) ; WRITE<CHR<7> ) ; 
MESSAGE* 12/ APPUYE2 SUR < RETURN} ' ) ; 
CH:-PRENCAR<tCR]> ; EXIT<MENU> 
END; 

PROCEDURE SORT I E ; 

BEGIN OUTCCLEF OU MESSAGE NON <JALIDE'> END ; 
PROCEDURE DEHORS; 

BEGIN 0UTCT1TRE OU LECTEUR NON VALIDE') END; 

PROCEDURE PRENENTI ER< S ; STRING j VAR ENT ; ENTI ER> ; 

vAK 1 : 1. .TAILLE; 

BEGIN 

ENT:=0 ; 

IF < LENGTH (S)=6> OR < LENGTH < S) > 36) THEN SORTIE; 

FOR I:=l TO LENGTH(S> DO 

BEGIN 

IF NOT <StI3 IN l'B'..'9'l) THEN SORT I E j 
ENT;=ENTX 18+<0RD<S[ II) -48) 
END 
END; 

PROCEDURE NQMFI CHI ER<S: STRING; I ; INTEGER) ; 
VAR SI sSTRINGC 13 ; 

B ONSET :CHOIDECAj 
BEGIN 

CLOSE(PRIMEE) ; CL0SE<PUBL1 QUE) ; CLOSE < CODE) ; CLOSE (CLAIR) \ 
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La methode 

Les systemes cryptographiques 
actuels tendent de plus en plus a uti- 
liser des problemes dits de type NP 
(non polynomiaux) caracterises par 
le fait que le nombre d'operations 
necessaires a leur resolution croTt 
comme une fonction exponenlielle, 
et non polynomiale, de leur taille. 

Notre programme utilise un 
cryptosysteme base sur le probleme 
NP de I'empilement : etanl donne n 
jetons de hauteurs respectives A| 
A n et une hauteur C, coniment 
peut-on obtenir C en empilant un 
sous-ensemble de ces n jetons ? On 
ne mnnait actuellement pas d'autre 
solution que la recherche systemati- 
que de tous les empilements possi- 
bles (au nombre de 2 puissance n). 
Far contre. ce -probleme est ires 
facile dans un cas particulier : quand 
la hauteur d'un jeton est supefieure 
a la somme des hauteurs de ceux qui 
le precedent (i.e. A; somme de 1 a i- 
1 des A^. U suffit alors pour le resou- 
dre d'essayer de soustraire de C le 
dernier jeton ; si c'est impossible, on 
essaye Tavant-dernier, etc. jusqu'a 
ce que Ton y arrive ; puis Ton 
recommence le processus avec le 
resultat de la soustraction , etc... On 
parvienl ainsi a la solution en n ope- 
rations an plus On rongoit done que 
Ton utilisera comme clef privee les 
jetons d'un probleme facile et 
comme clef publique ceux d'un pro- 
bleme difficile. 

Explication des calculs 

On note B-^...B n les * hauteurs » du 
« problems facile » de TAILLE n ; 
soient M un tres grand nombre (la 
RASF.) superieur a la somme des 
Bjet F (le FACTEUR) inferieur h M. 
F doit etre premier avec M atin que 
Ton puisse trouver son inverse 
modulo M (1'INVFACTEUR E, tel 
que E.F — 1 modulo M) . Ccci cons- 
titue la clef privee et la gache est for- 
mee de M et de E. On calcule alors 
les n « hauteurs » Ai ...A n du « pro- 
bleme difficile » par la formule Aj = 
(BjF) moduloM ; les Aj ferment la 
clef publique. 

Pour le codage, on decompose le 
texte en bits valant ou 1 ; nous 
avons utilise pour coder un raractere 
les 6 chiffres de la decomposition 
binaire de la difference entre son 
code ASCII et 32 : e'est ie tableau 
BIT de la procedure CODAGE ; les 

minuscules, de code ASCII supe- 
rieur a 96, ont ete remises en majus- 



PAGE< OUTPUT) ; MESSAGE* 18 ,S) ; Sl: = ' ' ; NGM:=" ; 
RONSFT'=r '0' . .'9' , 'A' . .'2' , 'a' . . 'z' , , ' :'3 ; 
REPEAT 

IF LEN6TH(NCM> -8 THEN Sit 13 :=PRENCAR< BONSET) 

ELSE IF LENOTH(N0M)=I THEN S 1 E 1 3 :=PRENCAR(t CR , BS3 ) 
ELSE SHU !=PRENCAR<B0NSET+rCR,BS3> j 
IF SIC 13 IN B ONSET THEN NOM : = CON CAT < NOM , G 1 ) 
ELSE IF S1C13-BS THEN BEGIN 

WRITE.CBS,' ' ,BS) ; 
DELETE (MOM, LENGTH (NOM) , 1) 
END 

UNTIL SIC 13»CR| 

IF POS< ,N0M)=6 THEN NOM l=CONCAT< ' *4 : ' ,NOM) ; 
IF LENGTH(NOM) > I THEN N0M:=COPY<N0M t 1 , D 
END; 

FUNCTION PLUSGRANDCA, B:ENTIER) : BOOLEAN; 

UAR U,V ! STRING J 

BEGIN 

STR(A,U) ; STR(B,V) ; 

IF LENGTH(U) >LENGTH<V> THEN PLUSGRAND :-TRUE 

ELSE IF LENGTH(U) CLENGTH(V) THEN PL US GRAND : = FALSE 
ELSE PLUSGRAND :=UX> 

END; 

FUNCTION EGALCA ,B:ENT I ER> ; BOOLEAN; 
VAR U,V : STRING; 

BEGIN STR<A,U) ; STR(B,V) ; EGAL:=U»V END; 

FUNCTION RND; INTEGER} 

BEGIN RND:=RANDQM DIV 16384 END ; 

PROCEDURE ECR1 Sf I : INTEGER) ; 

BEGIN WRITE< / . / >i IF I=TAILLE DIV 2 THEN WRITELN END) 

PROCEDURE FA I TMODTAB ( ENT ;ENTIER) ; 

UAR I : 1 . .LONGUEUR; 
BEGIN 

FOR I s-1 TO LONGUEUR DO 
BEGIN 

MODTABI 13 :=ENT-(ENT DIV BASE) XBASE ; ENT ;= 18XMODTABI I 3 
END 
END j 

PROCEDURE MODULOCUAR ENT :ENT1ER) ; 
UAR I s 1. -LONGUEUR; 

S i STRING; 
BEGIN 

STR(ENT.S) ; ENT ;=8 ; 

FOR I := 1 TO LENGTH (S) DO 

ENT i=ENT+ ( ORD< SC I 3 ) -49) 3GMODTABC LENGTH* S) + 1-1 3 ; 
ENT ;=ENT~< ENT DIV BASE) XBASE 
END; 

CXXXXXXXXXX) 
<X CODAGE X) 
CXXXXXXXXXX? 

PROCEDURE CODAGE; 

UAR I«JjK : INTEGER; 

CH : CHAR; 

S : STRING; 

BIT : ARRAY 1 8 . .63, 1 - .63 OF 8..1; 

ENT : ENTIER; 

BEGIN (XCODAGEX) 

NQMF I CHI ER( 'NOM DU CORRESPONDANT : ',13); 
(X*I-X) 

RESET <PUBLIQUE,CONCAT(NOM, ' .TEXT')) ; 
IF I0RESULTO8 THEN DEHORS; 
(XSI+X) 

PAGE < OUTPUT) ; WRITELN< y LECTURE DE LA CLEF PUBLIQUE'); 

FOR I :-l TO TAILLE DO 

BEGIN 

IF EOF (PUBLIQUE) THEN SORTIE; ECRlS<l)l 
READLNC PUBLI QUE , S) ; PRENENT I ERC S f CLEFT 13 > 
END; 

N0MF1CHIERC 'NOM DU MESSAGE; ' , U> ; 
<X*I-X) 



8 



Pom's n° 7 



cules et les caracteres de controle, 
de code inferieur a 32, ont ete rem- 
places par des espaces, sauf le retour 
chariot, de code 13, remplace par le 
code 95 qui represents un caraclere 
inaccessible an clavier et done pen 
usite. On decoupe le message en 
groupes successifs de n bits 
X|...X n . Si le dernier groupe con- 
sent moins de n bits, on le complete 
par des bits aleatoires. Le codage 
consiste a calculer pour chaque 
groupe la hauteur C, somme de 1 a 
n des AjX^ 

Pour deY.odf>r, o>n r.rtmrnenr^ par 
calculer D « C.E modulo M. puis 
Ton resoud le probleme d'empile- 
ment facile avec les Bj de facon a 
trouver les n bits Yj.. .Y n tels que D 
soit la somme des B|Y r Or on voit 
aisement que les Yj sont necessaire- 
ment egaux aux X, ; ils permettent 
done de reconstituer le texte original 
(en n'oubliant pas de rernplacer le 
caractere de code ASCII 95 par un 
retour chariot). 



RESET C CLAI R , CONCAKNOM , ' .9 .TEXT') ) ; 

IF IORESULT=fl THEN REWRITE(CODE,CONCAT^NOM, * . 1 .TEXTO > ; 
IF ] 0RESULTO8 THEN DEHORS; 

FOR I :=8 TO 63 DO 
BEGIN 

Ks = I i FOR J:-i TO 6 DO 

BEGIN BITtI,Jl:»K MOD 2; K:=K DIV 2 END 

END; 

PAGE( OUTPUT) j WRITEIN^ 'CODAGE') j I:=TAILLE; ENT t=fl ; 
REPEAT 

IF EOLN(CLAIR) THEN BEGIN READLN< CLAIR) j WRITELNj K i-63 END 
ELSE BEGIN 

REAO(CLAIR,CH) «!=ORD<CH) -32j IF K<8 THEN K:=0; 
IF K>63 THEN K:=K-32; WRTTE<CHR( K+32) ) 
END} 

FOR J:=6 DCW4T0 1 DO 
BEGIN 

ENT: = ENT+CLEFt MXBITCK, J] ; 
Is=I-l; IF 1=0 THEN BEGIN 

STR<ENT , S) ; NRITELN<CODE,S> ; 

I :=TA1LLE; ENT:=8 
END 

END; 

IF CEOF(CLAIR)) AND CIOTAILLE) THEN 
BEGIN 

REPEAT ENT ;=ENT+CLEFC I 3XRND; I:=I-i UNTIL 1=6; 



Suite du listing page 11 



Realisation pratique 

L'obligation d'utiliser de tres grands 
nombres rendait pratique femploi 
du langage Pascal qui possede des 
entlers ayant dejei 36 chiffres (les 
grands entiers). De plus, la portabi- 
lity du Pascal permel d'uiiliser le pro- 
gramme CCP sur H'autres ordina- 
teuis. 

Le programme utilise et stocke les 
clefs et messages sous forme de 
fichiers. Hormis la clef privee, qui est 
un fichier de type DATA contenant 
des grands entiers (afin d'evitcr que 
des indiscrets ne la lisent), la clef 
publique et les messages code et 
clair sont des fichiers TEXT qui peu- 
vent etre lus ou cents avec Le 
SYSTEM. EDITOR (la clef publique 
et le message code etant composes 
de grands entiers transformers en 
chaines de caracteres) . 

Le programme est en fait une 
grande procedure (MENU) deblinee 
a permeffre lp. retour an mpnu p.n oas 
d'eireur pai une instruction EXIT 
(voir les procedures SORTIF.. 
DEHORS et OUT). Les procedures 
ou fonctions MESSAGES et PREN- 
CAR sont classiques et RND fournit 
un bit aleatoire. PRE1NENTIER fait 
['inverse de la procedure Pascal STR 
en transformant une chavne en un 
grand entier. NOMF1CHIER prend 
au clavier le nom d'un fichier sans le 
suffice qu'elle rajoute automatique- 
ment (TEXT et .DATA pour les 



Programme VERIFICATION 

Suite et fin de 1'article 

Effacement du directory en Pascal 

Paqes 59-60 



msm verification: 

M F-*ILE CF IKTEGES; 
ESCHAR; 
JsKTESER: 
^C: 'INTEGER: 



^OUTPUT); 

V: : cI\V^SRfl**E DE DEiWSTSfiTION DE L' T EFFIC8CITE' ) ; 
^; r EL\(* D : _ SROCEDE D' ' EFFflCEMENT DU DIRECTORY EN MEKOIRE* ) ; 
WRITER 

^".NVINSESER UNE DIS3UETTE PRQSRflMK!E VI ERSE et frapoer'); 
^r T ELN("-O u POUR LIRE LE DIRECTORY DE L3 NCUVELLE DISBUETTE MBBRflNHE*}; 
^: T aJH , ou une autre teeche JQJR CtWSEMR L*'MQi£N DlKECIORf J; 
REPDtd) ; iWITFJi« WRITER 
J!=0; 

If :l='C T©! *fl*K(P0) ; < efface en moire le directory de la disqueite > 
{ PRC3SfWE sur laauelle se trouve ie orograaaie > 

pI^: t E(F, ,t ESTM: 

f** V3 a' H* 

TH&iWimNt'IL M* 1 Y Q 30S D' 1 ERREuR DE DIRECTORY') 
ELSE wRITElN^LE DIRECTORY DE LA VERITABLE DISQUETTE ftPPLEl EST » 
^flniNIENBNT SUR cfl r QwSSE'); 
KR!TELK('l©€TnE Jl VERITABLE DISQLCTE PHQGftfWE et f rapper ia bar re espace') 
REffiHD.)- 

E\D. 
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clefs publique et privee. .O.TEXT et 
. I. TEXT pour les messages en clair 
et cod6). S'il n'y a pas de prefixe. 
elie rajoule #4 : (le prefixe doit indi- 
quer le numero du drive et non le 
nom de la disquette). PLUSGRAND 
et EGAL comparent deux grands 
entiers (en theorie , rien n'empeche 
de comparer deux grands entiers 
comme on le fait aver, des entiers ou 
des reels, mais en pratique cela pro- 
duit des erreurs et des « plantages » 
a ('execution ; certe cause d'erreurs 
ne fut pas evidente a decouvrir et 
reste mysterieuse !) . FA1TMODTAB 
et MODULO permettent de calculer 
les expressions Bj.F modulo M et 
C.E modulo M (alors que les poduits 
B^.F et C.E excedent les 36 chiffres) 
grace au tableau MODTAB qui con- 
sent les valeurs modulo M des pro- 
duits de F ou E par les puissances 
successives de 10. 

Les procedures CODAGE et DECO- 
DAGE comportent deux parties . la 
demande des noms des fichiers puis 
le codage ou le decodage propre- 
ment dits. Si ^operation de deco- 
dage rencontre un probleme d'empi- 
lement ne pouvant etre resoJu (mau- 
vaise clef ou mauvais message), elle 
s'arrete (on peut la laisser continuer 
si Ton supprime ia ligne avant le 
UNTIL). 

La procedure ALEATOIRE fournit 
un grand entier aleatoire compris 
entre INF el SUP-1. La inethode uti- 
lises est la dichotomie qui, bien que 
tongue d'execution., est la plus facile 
a mettre en ceuvre auec des grands 
entiers. La procedure recursive 
BEZOUT permet de resoudre par 
Talgorithme d'EUCLlDE ('equation 
de BtZOUT AX-BY = 1 quand 
A<B. Elle est utilisee ici avec A — F, 
X = b. B = M et Y = K ou 
EF = KM 4 1. La procedure 
GENERATION commence par cal- 
culer la clef privee en se fixant pour 
chacun de ses entiers des limites 
superieure et inferieure confortables 
(SUP et INF) ; puis die calcule la clef 
publique. 

Notons que la constante TAILLE 
vaut 107, ce qui est a peu pres le 
maximum que Ton puisse prendre 
avec ce programme. Mais on peut 
parfaitement uriliser ce programme 
avec une valeui plus faible. Remar- 
quons que Je calcul exhaustif de tous 
les empilements lorsqu'on a 
1U7 jetons (i.e. le decodage de C) 
prendrait avec un ordinateur etu- 

diant 1UUU milliards d'empilements 

par seconde (ne revons pas !) 
5000 milliards d'annees ! Remar- 



quons encore que 107 n'est pas 
multiple de 6. le nombre de bits par 
Caracteres. ce qui permet 
d'ernbrouilleT encore plus un even- 
tuel decrypteur en codant certames 
lettres a cheval sur deux empile- 
ments. On peut prendre une 
TAILLE multiple de 6 ; chaque 
empilement correspond alors exac- 
tement a TAILLE/6 lettres. ce qui le 
tend autonome. 




Mode d'emploi 



bignalons tout d'abord que pour 
envoyer un fichier TEXT a un cor- 
respondant on peut, soil lui envoyer 
une disquette, soit utiliser un 
modem, soit encore impnmer et 

envoyer (par radio ou par courrier) 
le texte afin qu'il soit edite et sauve. 

Dans un premier temps, chaque uti- 

lisateur du systeme CCP fabrique un 

systdme de clefs. M. Dupont par 
exemple repondra G et DUPONT 
(ou bien # 5 : DUPONT) au pro- 
gramme CCP et 1* Apple fabriquera 
sur la meme disquette les fichiers 
DUPONTTEXT (clef publique qu'il 
devra fournir a ses interlocuteurs) et 
DUPONT. DATA (clef privee qu'il 
devra sarder sur une disquette dans 
un coffre a 1'abri) . 

Pour envoyer le message MISSIVE a 



M. Durand, M. Dubois rommen- 
cera par editer son texte (en y glis- 
sant si possible de nombreux signes 
de ponctuation ne genant pas la 
comprehension du texte. ce qui rend 
encore plus difficile tout essai de 
decryptage) et il le sauvera sous le 
nom MISSIVE. O.TEXT. Puis, ayant 
v6rifi£ qu'il possede le fichier 
DURAND .TEXT, il repondra C, 
DURAND (ou bien # 5 :DURAND) 
et MISSIVE (ou bien # 5 :MISSIVE) 
au programme CCP qui fabriquera 
le fichier code MISSIVE 1 TEXT 
(sur la disquette ou se trouve MIS- 
SIVE. O.TEXT), qui devra parvenir 
a M. Durand. 

Pour le decodage, ce dernier sortira 
le fichier DURAND. DATA de son 
coffre et repondra D, DURAND (ou 
bien * 5 :DURAND) et MISSIVE 
(ou bien # 5 :MISSIVE) au pro- 
gramme CCP qui recreera pour Sui le 
fichier MISSIVE.O.TEXT (sur la 
disquette ou se trouve MISSIVE 
1-TEXT). Notons que pendant les 
operations de codage et de deco- 
dage. le message en clair apparaTt 
sur I'ecran au fur el d rnesure de sa 
lecture ou de son Venture. 

En conclusion, nous avons la un 
systeme cryptographique tres simple 
d'emploi et parfaitement sur. Les 
temps d'execution sont de 6 minutes 
pour ecrire le systeme de clefs, 
d'environ 9 cps (caracteres par 
seconde) pendant le codaye et 
d'environ 5 cps pendant le deco- 
dage. Maisces leinps dfminuenl for- 
tement avec la eonstante TAILLE et 
il y a un compromis a Liouvei entre 
la vitesse d'execution et la securite 
du codage. Remarquons que le 
cryptosysteme utilise ne permet mal- 
heureusement pas l'authentification 
de I expediteur, contrairement a un 
systeme plus recent, developpe au 
M.l.T. . dans lequel les clefs publique 
et privee ont des roles symctriqucs. 
Mais ce dernier systeme est pratique- 
ment impossible a mettre en ceuvre 
sur Apple II car il utilise de tres 
grands nombres premiers. 

Bibliographie 

« La guerre des codes secrets » par 
David Kahn chez Inter Editions est 
un excellent ouvrage sur Fhistoire du 
rhiffre Dans « Les progres des 
mathematiques ». Pour la Science 
puhlie un recueil de ses articles de 
mathematiques dont <* Les mathe- 
matiques de la rryptographie a clef 
revelee », ecrit par Tun des auteurs 
du systeme a empilement. 
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STR<ENT,S) ; HRI TELN< CODE , S> ; 
END 

UNTIL EOF( CLAIR) ; 
CLOSE (CLAIR) ; CLOSE< CODE , LOCK) 
END; (XCODAGES) 

<*****x*x*xx*) 

<X DECODAGE X) 
<****X****X**) 

PROCEDURE DECODAGE; 
MAR I,J,K : INTEGER; 

S : STRING; 

ENT : ENTI ER ; 

BEGIN (SDEC0DA6E*) 

NOMFICHIER< 'VOTRE NOM: ',13); 
(SSI-*) 

RESET ( PR I VEE , CONCAT ( NOM , ' .DATA') > ; 
IF I0RESULTO9 THEN DEHORS ; 
(S^I + *> 

PAGE < OUTPUT) ; WRITELNC ' LECTURE DE LA CLEF PRIVEE') ; 

FOR I := 1 TO TAILLE DO 

BEGIN 

IF EOF(PRI'v'EE) THEN SORTIE; ECRISU); 
CLEFCI3 :=PRIVEE A ; GET< PRIUEE) 
END; 

IF EOF<PRIVEE) THEN SORTIE; BASE :=PRI VEE A ; 6ET< PRIVEE) ; 
IF EOF<PRI"JEE) THEN SORTIE; INVFACTEUR s=PRI VEE A ; 
NOMFI CHI ER( 'NOM DU MESSAGE: ',11); 
<**I-X> 

RESET < CODE , CONCAT < NOM , ' . 1 .TEXT') > ; 

IF I0RESULT=8 THEN REWRITEC CLAIR , CONCAT<NOM 8 .TEXT' )) ; 

IF I0RESULTO8 THEN DEHORS; 

<X*I+X> 

FAITMGDTAB( INVFACTEUR) ; 

PAGE<OUTPUT> ; WRITE LN (' DECODAGE' ) ; J:=8; K:=8; 
REPEAT 

READLNt CODE , S) ; PRENENTI ER( S , ENT) ; MODULO (ENT) $ 

FOR I :=TAI LLE DOWNTO 1 DO 

BEGIN 

J:=J+1; K:=2XK+1; 

IF PLUSGRAND< CLEFt I 3 ,ENT> THEN K:=K-1 

ELSE ENT :=ENT-CLEF C 1 1 ; 
IF J=6 THEN 
BEGIN 

IF K=65 THEN BEGIN UIRITELN; NRITELN< CLAIR) END 

ELSE BEGIN WRITE(CHR(K+ 32)) ; WRITE(CLAI R,CHR(K+32) ) END; 
J:=8; K:=8 
END 
END; 

IF NOT EGAL< ENT , 0) THEN SORTIE 
UNTIL EOF(CODE) ; 
CLOSE < CODE) ; CLOSE<CLAI R , LOCK) 
END; (XDECODAGEX) 

<XXXXXXXXXXXXXXXXXXXX*XXXX) 
<X GENERATION D' LINE CLEF X) 
<XXXXXXXXXXXXXXXX*X***X**X) 
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PROCEDURE GENERATION; 

VAR I : 1 . .TAILLE; 

S : STRING; 

BON : BOOLEAN; 

INF, SUP, BI DON : ENTI ER ; 

PROCEDURE ALEATOI RE<MAR ENT : ENT I ER) ; 
V^AR I : 1. .4; 

A , B sENTIER; 
BEGIN 

A:=INF; B:=SUP; 
REPEAT 

ENT :=(A+B) DIV 2; 

IF NOT ESAL< A+B , 2XENT) THEN ENT :=ENT+RND ; 
IF RND=8 THEN B !=ENT ELSE A !=ENT 
UNTIL PLUSGRAND<3,B-A> ; 

ENT : =A ; IF EGAL<2,B-A> THEN ENT : =ENT+ RND 
END ; 

PROCEDURE BEZOUT ( A , B : ENTI ER ; VAR X , Y : ENTI ER) ; 

UAR Q,R :ENTIER; 

BEGIN 

X:=9; Y:=0; 

IF BON THEN 

BEGIN 

Q:-B DIV A; 

IF EGAL(B,GXA) THEN IF EGAL(A.l) THEN- 
BEGIN Y:=l; X:=B+i END 
ELSE BON :=FALSE 

ELSE BEGIN 

B:=B-QXA; R:=A DIV B; 

IF EGAL< A , RXB) THEN IF EGAL(B, 1) THEN 

BEGIN Y:=A-1; X;=1+QXY END 
ELSE BON :=FALSE 

ELSE BEGIN 

A:=A-RXB? BEZOUT(A,B,X,Y) ; 
Y:=Y+RXX; X:=X+QXY 
END 

END 



END 
END; 

BEGIN <X GENERATIONS) 

NOMFICHIERCUOTRE NOM: ' , 13> ; 
< **I 

REWRITE<PRI"v'EE,CONCAT<NOM,' . DATA" ) > ; 
IF I 0RESULTO8 THEN DEHORS; 
<3f*I+X) 

SUP:=18; INF:=3; 

PAGE < OUTPUT) ; WRITELN< "ECRITURE DE LA CLEF PRIUEEO ; 

FOR I:=l TO TAILLE DO 

BEGIN 

ALEATOI RE< CLEFC I ] ) ; PRIVEE" :=CLEF[ I ] ; PUT(PRIVEE) ; 
ECRIS (I); INF: = INF+CLEF[U ; SUP:=2XSUP 
END; 

INF:=SUP* SUP: —2% SUP" 

ALEATOI RE (BASE) ; PRIVEE~ :=BASE; PUT(PRIVEE) ; 
WRITE<'.'>; INF :=BASE DIV 2; SUP:=BASE; 
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REPEAT 

ALEATO I RE < FACTEUR) ; WRITE<'.'); 

BON s =TRUE } BEZ OUT < FACTEUR , BASE , I NV FACTEUR , B I DON) 
UNTIL BON; 

PRIVEE A :=INVFACTEUR; PUT<PRI«v'EE) ; CLOSE< PRIVEE , LOCK) ; 
CX*I-X> 

REWR I TE < PUBL 1 QUE , CONCAT C NOM , ' .TEXT') ) ; 

IF I0RESULTO8 THEN DEHORS ; 

<X*I+X) 

WRITELN; WRITELN; WRI TELN< ' ECRITURE DE LA CLEF PUBLIQUE") 
FAITMODTAB< FACTEUR> ; 
FOR I : = 1 TO TAILLE DO 
BEGIN 

MODULO < CLEF! ID) ; ECRIS<I); 
STR( CLEFC 1 1 ,S) ; WRITELNC PUBLI QUE ,S) 
END; 

CLOSE < PUBL I QUE , LOCK) 
END; (X GENERATION*) 



BEGIN (XMENUX) 
CR:=CHR( 13) ; 
MESSAGE < 2 , ' 
MESSAGE* 5,' 
MESSA6E(7, ' 
MESSAGE < 11, ' 
MESSAGE < 13, ' 
MESSAGE ( 15,' 
MESSAGE < 17, ' 
MESSAGE<28 , ' 
COMMANDE :=PRENCAR< [ ' G 
CASE COMMODE OF 

'G' , 'g v : GENERAT I ON ; 

'C :CODAGE; 

'D' ,'d y : DECODAGE 
END 

END; (XMENUX) 



BS:=CHR(8); PA6E< OUTPUT) ; RANDOMIZE; 
OLIVIER HERE PRESENTE C.C.P.'); 
SYSTEME COMPLET DEO; 
CRYPTOGRAPH IE A CLEF PUBL I QUE.'); 
6) ENERER VOTRE SYSTEME DE CLEFS'); 
C> ODER UN MESSAGE') ; 
D) ECODER UN MESSAGE' ) ; 
Q> UITTER LE SYSTEME C.C.P.'); 
UOTRE CHOIX: *5 ; 

,'C ,'D' ,'Q' ,'9','C ,'d' ,'q'I) 



BEGIN ( X CRYPTOGRAPH I EX) 

REPEAT MENU UNTIL COMMANDE IN ['Q','q'J 
END. <X CRYPTOGRAPH I EX) 



Micromos 

Carte memoire 256 Ko pour 

APPLE II 



L'avance technologique 




Laboratoire : 17, Plateau dc la Ravinicre 



95520 OSNY - Tel. (3) 032-16-71 - (3) 032-37-78 
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Etudianffs, lyceens, lisez 



LORDINATEUR 
LECOLE 






Lyceens, etudiants. enseignants, parents : Tequipe de la revue 
L'ORDLNATEUR UND1V1DUEL publie un numero special 
hors-serie qui fait le point sur l'ordinateur a Pecole. 

• Un urdinateur dans une elasse? 

• Comment Tenseignement peut-il etre facilite par un 
ordinateur individuel? 

• A partir de quel age peut-on decouvrir l'informatique? 

• Quelle aide un ordinateur familial apporte-t-il sur le plan 
educatif? 

• Comment creer et gerer un club d'iiif ormatique i ndividuelle 
dans un etablissement scolaire ou universitaire? 

Toutes les reponses a ces questions (et a d'autres!) figment 
dans ce dossier indispensable realise a partir d'une synthese 
des meilleurs articles parus dans 
L'ORDINATEUR INDIVIDUEL. 
En 1983, il nest plus raisonnable d'ignorer le formidable outil 
qu'est l'ordinateur. Pour etre mieux informe sur ce domaine, 
lisez L'ORDINATEUR ET L'ECOLE. 






FF chez votre marchand de journaux l 



Graphique, quand tu nous tiens... 

Guy Mathieu 



On pcut rcprocher aujourdhui a 
I'Apple II un ecran graphique man- 
quant de finesse : la nouvelle gene- 
ration de micro-ordinateurs exprirne 
souvent ses aptitudes graphiques en 
centaines de milliers de points, par 
exempie 800 x 400, plutot qu'en 
dizaines de rnilliers : 280 x 192. 
N'ouhlions quand meme pas qu'il y 
a settlement tiois ans I'Apple II elait 
le phenix des hotes dp. r.e$ vergers, 
car, a ce prix, les possibilites graphi- 
ques etaient rares. 

L* Apple II garde une caractenstique 
particuliere attrayante, cqlle de la 
double page graphique. Pour peu 
que Ion possedc une imprimante 
capable d'en tirer le meilleur parti, 
nous voila bien armes. C'est le cas 
avec 1'EPSON MX FT munie de 
l'interface graphique EPSON pour 
Apple II. 

Quelles sont les possibilites offeites ? 
D'abord, eel les qu'offrent la plupart 
des imprimantes graphiques moder- 
nes : 

— noir sur blanc ou blanc sur noir 

— simple ou double dimension 

et ceci, bien entendu, en utilisant la 
page graphique 1 ou 2 au choix. 
Ensuite, et e'est la grande originalite. 
des combinaisons en une meme 
impression du contenu des deux 
pages . 

— impression cote a cote du con- 
tenu de chacune des deux pages 
(ex. 1) : 

— operation logique « hi » (produit 
logique) dormant I'impression des 
points communs aux graphes des 
deux pages, et dc ceux-la sculemcnt 
(ex. 2) ; 

— operation logique « OU inclusif » 
(somme logique) donnant rirnpres- 
sion de tous les points figurant sur au 

moins Tun des deux graphes 

(ex. 3) ; 

— operation logique « OU exelusif » 
(difference symetrique) donnant 
I'impression de tous les points qui 
figurent sur Tun des deux graphes, et 
pas sur l'autre (ex. 4). 

Ces operations sont bien sur compa- 
tibles avec les precedentes. 

II existe egalement une possibility de 
n'editer qu'une fraction de graphe. 
designee par sa position sur I'ecran. 
en reference aux lignes et colonnes 



de meme emplacement dans le 
mode texte. 

Le programme ci-apres permet 
Texploitation par un questionnaire 
en sequence de ces diverses possibi- 
lites (a I exception de la derniere 
citee). II permet aussi : 

— de visualiser le ou les graphes 
clioisis, de pennutei les deux pages, 
de revenir au menu : 

— de choisir entre I'impression de 
graphes deja existants en machine (il 
peut alors etre utilise en sous- 
programme dun programme gra- 
phique) et la recherche sur disques 
de graphes preenregistres. 

Mais tout ceci n'est-il pas un jeu de 
I'ebpiit ? Puui nous convaincre du 
contraire. nous allons examiner 
quelques cas duplication. 

Graphe double dimension 

Cette formule est ideals pour creer : 

• des pages de litres. 

• des transparents pour retro- 
projecteur. 

Intersection de deux 
graphes 

Permet par exempie de detecfer 
immedtatement les points communs 
a deux schemas de circulation afin 
de detecter deventuels « points 
noirs» (ex. 5). 

Union des deux graphes 

Permet d'utiliser «un fond de plan» 
et d'y placer, successivement. divers 
traces. Par exempie, une carte sur 
laquelle on trouvera les villes. puis 
les richesses minieres, etc. 

Difference 

de deux graphes : 

Permet de reperer irnmediatement 
les modifications apportees a un gra- 
phe enlte deux versions successive^ 
(ex 6) 

L'irnaOjiudlioii des «dinyues du yrd- 
phe» etant sanslimites. bien dautres 
applications peuvent etre tiouvees. II 
est meme probable que dautres 
imprimantes offrent ou offriront des 
possibilites du meme ordre. 



N.B. L'Apple He, el autres nouveautes 
Apple, conserveront-ils cette double 
page graphique ? 



Programme 

et commentaires 

1 a 900 : parametres d'initialisation 
et traces - tests sur pages 1 et 2. 
200 : affichage des pages graphi- 
ques. 

5 000 : dp.rnulement du questinnne- 
ment. 

6 000 : mise en route de ['impres- 
sion . 

10 000 : recherche de graphes sur 
disques. 

30 000 : sous-programme d'attente. 

Mode d'emploi 

N'oubliez pas que la carte graphique 
Epson est telle que deux graphes 
sont toujours traces cote a cote en 
fuiiuaL nuiiiidl. Ces deux graphes, 
differents dans le cas de nntre* option 
COTE A COTE, sont identiques 
dans tons les autres r.as. 
Le graphique de la page 18 illustre la 
sequence des questions posees par 
le programme a I'utilisateur. 
Kemarque ; si Ton repond 1 (COTE A 

COTE) a la troisieme question, i3 faudra 
ulieiieuieiuenl pensei d placer les yid- 
phes dans le deux pages pour qu'ils se 
presentQnt dans I'ordre convenable a 
1'edition. 

Exempie d'uiilis-ation 

Nous cherchons a imprimer cote a 
cote deux graphes sauves sur une 
disquelte sous les nom CHATS 1 et 
CHATS 2 II faut executer le pro- 
gramme puis placer la dlsquette 
dans le lecteur et suiure la sequence 
suivanle : 



Question Reponse 

1 3 

2 1 

3 1 

4 N 



Choix 

Les deux pages 
Normal 
Cole o cole 
Pcib en inetnoire 



Ensuite, choisir 1'option CATALO- 
GUE, amenei face a CHATS 1 et 
faire RETURN. Venir apres 
CHATS 1 et faire RETURN pour le 
changement. Suivre la meme 
sequence pour CHATS 2. Enfin, 
dans le menu, choisir 1 (verification 
de la page 1), puis 2 (page 2) , ESC 
(retour) et enfin RETURN (impres- 



sion). 
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Exemple 1 — Page 1. 



txemple 1 — Page 2. 





Exemple 5 : 
Security Incendie 



Bat t men t R 



Bat i men t B 



□ 
□ 



Page 1 — Securite Incendie . 
Plan d evacuation des agents. 



Page 2 — Securite Incendie. 
Circulation des v£hicules de secours. 



Bat i men t fl 



Bat i men t B 



□ 

□ 




Page 1 "CT" Page 2 — Securite Incendie. 
Identification des "points noirs". 





NOUS VOUS PROPOSONS 



Logiciel 

traceur 
de courbes 



Votre APPLE 1 1 sait aussi dessiner sur un traceur de courbes, 
mais encore tui faut-il un logiciel puissant pour faciliter 
votre travail. 

Notre logiciel, utilisable en Basic, vous Der met de composer 
facilement vos graphiques comme sur un traceur de haut de 
gam me. 

Avec une program matt on de quelques lignee, nos sous-pro- 
grammes traccront pour vous : 

droites, courbes, histogrammes, axes, grilles, titres, annota- 
tions, cercles, rectangles, i leches, etc ... 

Traceurs au format A3 et A4 
HOUSTON 
STROBE 
BRYANS 
CALCQMP 

Ensemble Traceur et logiciel a partir de 10.000 F H.T. 




MINIGRAPHE 

MICROINFORMATIQUE 

263, Boulevard Jean-Jaures, 92100 Boulogne 
Tel. 608.44.31 
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Question 1 



Question 2 



Question 3 



Question 4 



Menu 



1 - Page 1 -i 



2 - Page 2. 



3-Les2 . 



r Normal i 



■ Inverse 



r Format normal 



• Format double 



p Cote a cote 



-Intersection 



-Union 



-Ditterence 



Dessin 

en memoire 



Catalogue 



Dessin non 
pn memoire 



Graphe du mode d'emploi 



Pet rhoix 

H H 

i-si 2 pages-J 



1 Examen de 
la page 1 



2 Examen de 
la page 2 



'ESC : 
Menu 



'RETURN' : 
Impression 



Retour a la 
question 4 



logmo 



Une infonmalique de yeblion ddaplee dux besoins deb yestionnaires et realisee par des yestitfnnaires. 



ETUDIE 



FORME 



• opportunity d utilisation de I'outil micro-informatique 

• integration entre informatique traditionnelle et personnelle 

• politique de la communication dans I'entreprise 



• formation a ( utilisation de la micro-informatique 



REALISE • realisation de programmes a la demande 

UVRE • livraison de systemes cles en main, avec des progiciels de 

GESTION DE STOCK, PAYE, COMPTABILITE. 

Nous sommcs gesrionnaires avant d'etre informaticiens. L'informatique doit s'adaptera fhomme, ct non l'inverse. 
Loutil niicro-informatique repond particulierement bien a ce souct de quallie et d'efflcacite du travail, 

dans des conditions conviviales. 
Nombreuses references en informatique traditionnelle divers rnateriels -et en informatique individuelle - principalement 

Apple - aupres des PME ei des groupes industnels. 



V^logma 



s.a. Centie Ld Chaiaiyneraie - 29. avenue de Versailles - 78170 La-Celle-St-CIoud - Tel. : (3) 918.13.07 
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Exemple 6 : les petits chats. 



ft 


S 












6 

ft 


ft 




& 


ft 


< 

! 


* ft 

J- 




Page 1 - 


Situation de depart. 






a 














ft 




ft 

* ft 


A* 

ft 


Page 2 - 


Situation d'arrivee. 





ftft 

ftft 

ftft 



SOMME logique : Ceux qui ont bouge entre 1 et 2. 



1 LQMEM : 25888 

2 TEXT 

3 HOME 

5 DD = PEEK (40185) : IF OD = 9 OR DD > 

2 THEN DD = 1 
16 W = CHR* (4) :0* = CHR* <7> :G* = C 

HR* U7):ZER0* = CHR* (8) 
28 H6R i HCOLOR= 3 
30 FOR 1 = 8 TO 88 STEP 18 
35 HPLOT 1,1 TO 1,190 - I TO .278 -1,19 

0-1 TO 278 - 1,1 TO 1,1 
40 NEXT 

5© FOR 1 = - 19 TO 18: HPLOT 199 4 1 ,8 

5 TO 139 * I , 105; NEXT 
60 HGR2 : HCOLOR= 3: HPLOT 0,0 TO 0,190 

TO 278,198 TO 278,0 TO 0,0 
70 FOR I = TO 88 STEP 10 
75 HPLOT 139,1 TO 1,95 TO 139,190 - I T 

278 - I ,95 TO 139, I 
88 NEXT 

85 FOR 1 = - 10 TO 10: HPLOT 139 + 1,8 

5 TO 139 + 1 , 105: NEXT 
90 GOTO 5080 
20 REM PERMUT. PAGES 
210 POKE - 14304,8 

215 IF PAGE = 1 THEN POKE - 1*300,0 
220 IF PAGE - 2 THEN POKE - 14299,0 
250 RETURN 

5000 REM MENU PRINCIPAL 
50 10 TEXT ; HOME 

5020 VTAB IS PRINT * 1 (ERE PAGE) - 2(EME 
PAGE) - 3CLES DEUX) REPONDEZ PAR 
1,2 OU 3 S.V.P. fl ; 

5030 GET Z* 

5040 P - VAL (2*) i IF P < 1 OR P > 3 TH 
EN PRINT G*: GOTO 58 18 

50 50 PRINT 

5100 VTAB 4; PRINT "1 < NORMAL) - 2 <INW 
ERSE) REPONDEZ PAR 

1 OU 2 S.U.P. ■ ; 

51 10 GET Z% 

5120 I = UAL <Z*> : IF I < 1 OR I > 2 TH 

EN PRINT G* : GOTO 5108 
5130 I = <I - 1> * 32 
5140 PRINT 

5200 IF P < 3 THEN 5388 

5210 VTAB 7: PRINT "I <CQTE A COTE) - 2 
(INTERSECTION) - 3 (UNION) - 
4 (DIFFERENCE) REPON 
DEZ PAR 1, 2, 3 OU 4 S.V.P. " ; 

5220 GET 2* 

5230 L = VAL (Z*) : IF L < 1 OR L > 4 TH 

EN PRINT G4: GOTO 5218 
5240 L = (L - 1) 3f 4; IF L = 12 THEN L = 
16 

5250 PRINT 

5300 IF P = 3 AND L - 8 THEN 5480 
5310 VTAB U: PRINT "1 (FORMAT NORMAL) 

- 2 <FOW*¥T DOUBLE) REPONDEZ PA 

R 1 OU 2 S.V.P. "J 
5328 GET 2* 

5330 D = UAL (2*) : IF D < i OR D ) 2 TH 

EN PRINT G*: GOTO 5318 
5348 D=(D - 1) 3C44 
5350 PRINT 

5400 COEFF = P + L+I+D 
5500 VTAB 15 

5510 IF P < 3 THEN PRINT ■ LE DESS1N ES 

T-IL DE JA EN MEMOIRE?* 
5512 IF P - 3 THEN PRINT ■ LES DESSINS 

SONT-ILS DEJA EN MEMOIRE?" 
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5515 PRINT "REPONDEZ PAR O OU N S.V 

.P. 

5529 GET Z% 

5539 IF 2$ ( > "O" AND Z% < > "N" THE 

N PRINT G*: GOTO 5509 

5540 PRINT 

5559 IF Z% m 'Q m THEN 5600 

5560 GOSUB 16996 

5570 PRINT WBLOAD" ;ZZ*;" f A*280e- 
5575 IF P < 3 THEN 5406 
5580 GOSUB 10606 

5590 PRINT WBLOAD' ;ZZ»;" ,A*4080" 

5680 HOME : PRINT "UOUS DISPOSE2 MAINTE 

NANT DES CQtflANDES SUIVANTES: ■ 
5410 PRINT s PRINT "I OU 2 POUR FAIR 

E APPARAITRE SUR L y 

RAN UNE DES 2 PAGES " 
5429 PRINT s PRINT ■ 'ESCAPE' 

ER DU MODE GRAPHI QUE 
MODE TEXTE <MENU> ■ 

5439 PRINT : PRINT ""RETURN' 

ER L' IMPRESSION" 

5440 PRINT : PRINT "0 

GER EVENT UELLEMENT 
(OU LES) GRAPHE(S) " 
5450 PRINT : PRINT s PRINT 

? GET 2* 

5440 HOME 
5700 PRINT 



EC 

POUR PASS 
AU 

POUR LANC 

POUR CWN 
LE 

■UOTRE CHOIX 




• 12 ZUTIA - II 2-1TZA - IMS "X - OIZZ - jJQKY&* I «1 ill'U 

BBBsnni^Bfl t i*.vJLR^. ■^■■^B 



- :: -I 

::; 2jiia -I 

t ton r.» riosajTiA • ) MHSUt'a attta -I 

( tmjzjai ««u • ) ust» run -I nofcus . 



. BTL ■■■ r ■■: if £ 31 . . — nfclJ#J - i ■ 

.obJiisbxo .ouioab-r , nstrpi-Cqxa .aj.-ni—c: aosiyw-xS 38 . 

.3S5iSJ9if? nffl MBKHWW * JUi qlM W l *«| .04 TlU". 344I0.t *«*L ^ Oil . 

.aaxriiDSSfi HCTAH 22 2 as BOXBttflfi . 

**;i:3ao'; BMtfrign jo !!>:h as** si-oO lift tB^Tanwtgi :=3r.9*i^>C . 

at. 03 afl 
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gu 



O 



■a$fwfacf . 2-i _ - z n .imjeII-tm pVktflVCSM Esaineti 



i 



Z3;r.inB:M3R , J03-> , BV3 00OIP 




3730 
5740 

5750 

5760 
5770 
4000 
4016 
4012 
4615 
4020 
4036 
6056 

4040 

4070 
4080 

4090 

6100 

18000 

10040 

18850 



10655 
10040 
10665 



18670 
10086 

10690 

10895 
10100 

10158 
16200 
10480 



IF ASC <Z*> - 13 THEN 4666 

IF ASC (2*) = 27 THEN TEXT s HOM 

E : GOTO 5460 
PAGE = UAL <Z*>: IF PAGE = 1 OR PA 

GE = 2 THEN GOSUB 260: GOTO 5460 
IF PAGE = THEN 5566 
PRINT 6*: GOTO 5600 
REM COMMANDE IMPRIMANTE 
PRINT Df'PRttl" 
PRINT ZERO* 
POKE 1913 f C0EFF 
PRINT G* 
PRINT D*" PRE- 
TEXT ; HOME ; PRINT "VOULEZ-VOUS U 

NE AUTRE IMPRESSION ? " 
PRINT : PRINT "<REP0NSE PAR OU 

N S. V.P.J 
GET 2% 

IF Z* - -N- THEN VTAB 10; HTAB 10 

: PRINT "AU REVOIR": END 
IF 2* = "O - THEN 5000 
PRINT G»: GOTO 6050 

REM CATALOG 

HOME : PRINT W CATALOG , D" ;DD 
V/TAB IS PRINT "FLECHES -> C- POU 
R DEPLACER LE CURSEUR JUSQU'AU NO 
M VOULU PUIS 'RETURN' <OU 
'RETURN' SI LE NOM N' EST PAS AFFI 
CHE- 

W = 3:HH = 7: VTAB W: KTAB HH 
GET Z*:Z = ASC <Z*> 
IF Z « 13 AND W < 4 THEN HOME : 
PRirfT -VQUS POLWEZ MAINTENANT CH 
ANGER DE DISQUE": GOSUB 30606: GO 
TO 10000 

IF Z = 8 THEN KK) = <A> - 1 : IF W 
C 3 THEN W = 3 

IF Z « 21 THEN W = W + ij IF W 

> 23 THEN W = 23 
IF Z - 13 THEN 16406 
UTAB HTAB HH 

IF 2 < > 13 AND 2 < > 8 AND Z < 

> 21 THEN PRINT G* 
VTAB W: HTAB HH 
GOTO 16666 

VTAB 1: HTAB 1: PRINT 



EC LA FLECHE 
LE NOM 



■AVANCER AM 
-> JUSQU'A DEPAS-SER 



10410 



16420 
10508 
16600 
38060 
30010 
36038 



38848 
30650 

30668 
30070 
38168 



INUERSE 
ETURN*" " 



UTTAB 3! PRINT ■ PUIS 
: NORMAL : PRINT ■ 



HH 



"vTAB W; HTAB 
INPLIT ZZ* 
RETURN 
REM ATTENTE 
POKE - 14368,0 

VTAB 24: HTAB 5: IMMERSE ; PRINT 
"BARRE D'ESPACEMENT POUR LA SUITE 
■ • 

NORMAL 

IF PEEK < - 16384) < =127 THEN 

30050 
POKE - 16368,6 
PRINT 
RETURN 
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Graphiques et logique 

Olivier Herz 



Le programme GRAPHLOG est 
une Illustration de l'article de Guy 
Mathieu : c'est un petit programme 
assembleur Ires simple, ielogeable 
(c'est la mnrie dans re nump.ro He 
Pom's !) ec lit avec I'assembleur 
LISA 2.5. II realise une operation 
logique bit par bit sur deux pages 
graphiques et met le resultat dans 
une troisieme. Par page graphique, 
nous entendons ici les intervalles 
$2000. 3FFF, $4000. 5FFF et 
$6000.7FFF, etant entendu que 
seuls les deux premiers intervalles 
correspondent a des pages graphi- 
ques video ; pour voir la derniere. il 
faudra faire 2000 < 6000.7FFFM ou 
4000<6000.7FFFM en mode 
moniteur. L'opSration logique cor- 
respond au type graphique de Pas- 
cal, repris aussi par HAIFA dans 
Pom's 5_ Si A et R designent les 



Exemples : 



points des pages sur lesquelles se 
realise l'operation et C le resultat a 
mettre dans une troisieme page (0 
= eleinl, 1 = allume), on ublienl . 



TVPF 


VAI FUR HF C 




(I 


1 

Xj 


A NOR R 


2 


A AND NOT B 


3 


NOT B 


4 


NOT A AND B 


5 


NOT A 


6 


A EOR B 


7 


A NAND B 


8 


A AND B 


9 


A = B 


10 


A 


11 


A OR NOT B 


12 


B 


13 


NOT A OR B 


14 


A OR B 


15 


1 



f> TYPF sapplique anx hits des 
points de l'ecian. Ln ce qui concerne 
les bits de couleur (le S e bit des octets 
de l'ecran), on applique un autre 
type (TYPCOL). Pour se servir de la 
routine, il suffit de POKEr aux adres- 
ses 7 a 9 les numeros des paqes qra- 
phiques (a savoir 32, 64 ou 96 : il 
est tres danqereux de POKEr autre 
chose) ct cn 24 et 25 TYPE et 
TYPCOL respectivement, puis de 
faire un CALL a l'adresse ou Ton a 
charge cette routine relogeable. 

En effectuant une copie d'ecran gra- 
phique a partir des ecrans ainsi 
engendres. il vous est rnaintenant 
possible de faire tout ce que Guy 
Mathieu proposait aux posscsseurs 
d'Epson. 



7 8 9 I 24 25 

32 32 32 5 5 negatif de la page HGR, 8* bits compris 

32 64 64 8 AND des pages HGR et HGR2 avec resultat en HGR2 et 8 e bits mis a 

64 32 96 14 6 OR de HGR2 et HGR : resultat dans la page "invisible" avec EOR des 8* bits 



Graphloq — 


Lisa 2.5 


23 MD12 


EPZ *FE 








24 HEH3 


EPZ <FF 


i 


LST 




25 i 




2 ; 






26 


ORG $686 


3 -.mummmmmmmm 


27 


OBJ $988 


4 & 




X 


28 | 




5 ;X CE PROGRAftf REALISE U€ * 


29 


LDA M91 


6 ;X OPERATION LOGIQUE SUR LES X 


38 


STA LIGNE 


7 ;X OCTETS DES DEUX PAGES I 


31 BCLELI6 


PHA 


8 ;X GRAPHIQUES ET HET LE RE- X 


32 


AND HC8 


9 :X SULTAT DANS (IC 3EHE. X 


33 


STA BASE 


10 ;X 




X 


34 


LSR 


11 ;X (O 0. HERZ POUR POM'S 7 X 


35 


LSR 


12 :X 




X 


U 


ORA BASE 


is \mmmmmmmmmu 


37 


STA BASE 


14 i 






38 


PLA 


15 USE 


EPZ U 


iLIGNE DE L'ECRAN 


39 


STA BASE+1 


16 PAGE! 


EPZ 47 


; PREMIERE PAGE 


48 


ASL 


17 PA6E2 


EPZ « 


;DEUXIEHE PAGE 


41 


ASL 


18 PAGE3 


EPZ %9 


;PAGE DU RESULTAT 


42 


ASL 


19 TYPE 


EPZ S18 


;TYP£ POUR LES POINTS 


43 


ROL BASE+1 


28 TYPCOL 


EPZ *19 


;TYPE POUR LE BIT DE COULEUR 


44 


ASL 


21 BASE 


EPZ «1E 


;ADR£SSE DE LA PREMIERE LI6NE 


45 


ROL 8ASE+1 


22 HEM 


EPZ $FD 




46 


ASL 



;PR0GfWt£ REKMjEABLE 



LIGNES 31 A 47: 
-VOIR (WLESOFT 
-ROUTINE EN *F417 
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47 


ROR BASF 






CMP) MIC 

m w fl» jr 


43 


LDY 139 




M 




49 RflECQI 


1 &A FttSFt i 






^TA RASF+1 


uu 








t OA HrTtf 


W J 






ft? 


cta fnae^ v 

OlH \Drt3LJ ,1 


■IS 


<iTA RASF+1 




Bfl 


DFY 


S3 
iH 


i rti fPto^Fi y 

lwi vorfOt,/ ) l 




07 


dm on crn 


54 


STA rffMl 

win nn i 




9fl 

TO 


Ukli LIUME. 


55 


IDA BASE41 




91 


1 DA 1 IfftF 

uun u i urn. 


Ml 


■ ■ TV Wf 1 1 




92 


uir wirr 


5? 


ORA PAGE2 




' w 


BUT Bfl FlIPS 


58 

WW 


ST A BASE+1 




94 


nm 


5? 


IDA (BfcSE).Y 




95 : 




a 


STAHEH2 




96 


OCM 'BSAVE GRAPK.06,Ai88e,Li8e B 


61 




:LIGNES 61 A 81: 


97 
• • 


END 


62 BCLfTYP 


IDA lil 


■-VOIR HAIFA 






63 


ASL HEM! 


•-ROUTINE 




Kecapitulation 


64 


BCC >8 






65 


ASL 






¥SR6 871 


66 


ASL 








67 A 8 

Wl V 


ASL MEM2 






flftftft- A9 RF ftFi AA 4R 99 rfl fiS 

DODO n/ DT 00 00 TO X 7 WJ OJ 


68 


BCC >1 






RflflR- IF 4A 4A IP IP Aft 

ffOoO IL. Tn tTI dJ AC. OJ 1L 00 


69 


ASL 






&8I0- 85 IF hA 8A BA IF A A 

Poio w ir vrt on on io ir on 


7fl A i 


CPX 18 






srio- ?/, ip &A A6 IF Aft 77 AS 


71 


ONE >2 






Aft^fl- IP 99 IP AS A7 ftS IF P1 
POis Ir il XT OJ Of OJ Jr Dl 


72 


flCTYPCQL 






8828- IE 85 FD A5 IF 29 IF fi5 


73 


CLC 






gcofi. go OS ic Di ic cr ao 
BOoO DO OJ Jr Dl Jl OJ re Hx 


74 


BCC >3 






fift^ft- flft flO fit flx en Ofl fl? 
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Hard Copy Seikosha 

Olivier Herz { 



Afin de completer 1 "article de Guy 
Mathieu et celui sur « Graphiques et 
logique ». voici un petit programme 
en langoge machine (ecrit a mes 
debuts sur Apple) permettant d'obte- 
nir la copie d'ecran graphique sur 
Une imprimante Seikosha. 

Ne possedant pas d'assembleur ci 
I'epoque. j'avais ecrit ce programme 
directemem en langage machine. II 
reste toutefois interessant a publier 
car il est asse^ rapide et, d'autre part- 
ies possps^p.urs dp Spikosha n ont 
certainement pas tous un tel pro- 
gramme a leur disposition. 

La seule routine ROM utilisee est le 
WAIT $FCA8 ; le programme pcut 
etre utilise par n'importe quel Apple. 




Hard Copy Seikosha 
1LIST 

5 REM X*X HARD COPY SEIKOSHA **X 

6 REM **X COPYLEFT XX* 

7 REM XXX OLIVIER HER2 - POM'S XXX 

18 TEXT : HOME : INVERSE : UTAB 6: PR IN 

T * IMPRESS I ON DES 2 PAGES HAUTE R 

ESOLUTION": NORMAL 
28 PRINT : PRINT : PRINT : PRINT "VOULE 

Z-VOUS LA PAGE 1 OU 2 ? " ; 
38 GET A* : I F A* < > " 1 ■ AND A* < > " 

2" THEN 38 
48 PRINT A*: POKE 28,288: POKE 29,31 + 

32 X < ASC <A*> - 48) 
58 PRINT : PRINT "VOULEZ-VOUS LA PAGE E 

NT I ERE ? 

48 GET A*: IF A* < > "O" AND A* < > " 
N" THEN 68 

78 PRINT A*s POKE 24,8: IF A$ - "N" THE 

N POKE 24,4 
86 PRINT : PRINT "VOULEZ-VOUS L' IMPRESS 

I ON EN NEGATIF ? 
98 GET A*: IF AS < > "0 B AND A* < > ■ 

N" THEN 98 
188 PRINT A*s POKE 25, 8 i IF A* = "Q" TH 

EN POKE 25, 1 
118 PRINT : PRINT " VOULEZ-VOUS UN CADRE 
? "5 

128 GET A*: IF A* < > "O" AND A* < > 

"N" THEN 128 
138 PRINT A*s POKE 24,8: IF A* = "0" TH 

EN POKE 26 , 1 
148 PRINT : PRINT "VOULEZ-VOUS LE FORMA 

T DOUBLE ? "; 
158 GET A*: IF A* < > "□* AND A* < > 

"N" THEN 158 
140 PRINT A*s IF A* = "0" THEN 288 
178 POKE 27,8: POKE 235,192: POKE 236,1 

29: IF PEEK (24) =8 THEN 198 
188 POKE 237,142: POKE 38,159: GOTO 238 
198 POKE 237,194: POKE 38,143: GOTO 238 
288 POKE 27,1: POKE 235,224: POKE 236,1 

31: IF PEEK (24) = 8 THEN 228 
218 POKE 237,69: POKE 38,78: GOTO 238 
228 POKE 237,133: POKE 38,46 
238 PRINT : PRINT : HTAB 3: INVERSE : P 

RINT " APPUYEZ SUR UNE TOUCHE QUE 

LCONQUE ": NORMAL : 14AIT - 16384 

, 128: POKE - 16368,8 
248 IF PEEK <6148) < > 1 THEN PRINT 
CHR* <4> j"BLOADSEIKO.OBJ" : POKE 

6148, 1 

258 POKE - 16248,8: HOME : CALL 6149 
268 CALL - 1852: CALL - 1952: CALL - 
1852 
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La souris de Lisa 



Heroe Thiriez 



Faut-il encore parler de Lisa ? Nous 
avons etc abreuves dans ies jour 
naux d'articles sur Lisa depuis sa 

presentation Internationale le 19 jan 
vier dernier. D'autre part, nous ne 
pouvons, dans unc revue telle que 

Pom's, passer sous silence la nais- 
sance de Lisa. Voyons done pour- 
quoi la souris de Lisa veut devenir 
aussi delebre que le sourire de 
Mona... 

La premiere impression que deyage 
cet ordinateur de bureau — le terme 
convient ici parfaitement — est celle 
d'un equipement au design agrea- 
ble, d'apparence professionnelle. 
Par opposition, I' Apple 11 Plus, Qui 
fait notre bonheur depuis si long- 
temps, suggere un peu la 2CV. avec 
son aspect rustique et son cote 
boheme. 

Lisa est un systeme a clavier deta- 
ch e, incorporant deux lecteurs de 



relie par un fil gris lui aussi, la 
fameuse souris. qui est le mode de 
communication piivilegie de 1'utilisa- 
teur vers la machine. C'est grace a 
cette souris et a la qualite qraphique 
dc l'ecran qu'il suffit d'une demi- 
heure a un non-informaticien pour 
apprendre a utiliser Lisa. 

La souris est un petit boitier que Ton 
fait glisser sur son bureau dans 
n'importe quelle direction. Un cur- 
seur sur l'ecran est associe a la souris 
et se deplace en totale symbiose 
avec elle. L'ecran presente un cer- 
tain nombre de petits dessins illus- 
trant les dossiers sur lesquels on tra- 
vaille, y compris une poubelle pour 
ceux dont on veut se debarrasser. 

II suffit dc pointer le curscur associe 
a la souris sur le dessin correspon- 
dant au dossier que Ton desire 
« ouvrir », et de confrrmer son cholx 
en appuyant sur ]a petite barre de la 




disquettes 5 pouces (860K octets 
par disquette) et un ecran a tres 
haute resolution (720 x 364, soit 
pres de cinq fois autant de points 
que pour I' Apple II). Une surprise 
desagreable, la seule d'ailleurs : il 
n'est pas question de travailler en 
couleur ; tout le monde sait que les 
souris ne connaissent que le blarte el 
le gris.-. 

Seul appendice externe a I'appareil. 



souris. Le dossier s'ouvre alors, et 
on y choisit (toujours grace a la sou- 
ris) tel ou tel element. 

Differents dossiers peuvenl elre 
diverts simultanement. comme sur 
un bureau normal. On peut agrandir 
ou reduire les documents sur l'ecran 
a volonte, ouvrir ou fermer tout dos- 
sier, passer du traitement de texte au 
Lisacalc ou au programme de reali- 
sation de graphiques. Tout cela se 



fait tres rapidement, et Ton peut ainsi 
croiser les applications : editer en 
•traitement de texte les titres de gra- 
phiques provenant de duimees Lisa- 
calc ! 

A tout moment, une copie de l'ecran 
peut etre obtenue, l'ecran incorpo- 
rant a loisir des textes (en plusieurs 
polices et failles) et des graphiques. 

Le souci de simuler la gestion d'un 
bureau va tres loin : on peut ainsi 
faire apparaitre sur l'ecran une calcu- 
latrice avec des touches sur lesquel- 
les on « appuie » grace a la souris. 

Avec Lisa sont fournis en standard : 

• LisdWiite . traitement de texte 
(tallies et polices variees). 

• Lisacalc : 255 lignes, et 255 
colonnes de largeur variable. 

• Lisalist, base de donnees pouvant 
contenir 6000 enregistrements de 
100 caracteres chacun. 

• LisaGraph, soit Visiplot en beau- 
coup plus rapide, et avec les possi 
bilites d'edition de texte. 

• LisaDraw, outil pcrformant pour la 
creation qraphique. 

• LisaProject, pour la gestion de 
projets (PERT, Gantt) jusqua 
1000 laches. 

Tout cela coexist? sans effort dans le 
million d'octets de memoire cen- 
trale, le microprocesseur MC68000 
dssurdiit une rapidite de traitement 
in£ga)6e en micro-informatique. 

Seul petit probleme : tout le monde 
n'a pas le budget de 120 000 francs 
TTC necessaire pour avoir le 
systeme complet, avec son impri- 
mante et le disque dur de 5 mega- 
octets. En outre, ceux qui desirent 
s'offrir Lisa devront encore patienter 
jusqu'en septembre. Le prix nest 
pas donne, mais le rapport perfor- 
mance /prix est excellent en compa- 
raison avec celul des mini- 

ordinateurs de bas de gamme 
Nous attendons aussi le disrret 
Mcintosh qui, a en croire ce que j'ai 
lu dans des revues professionnelles, 
devrait proposer d un prix sensible- 
ment plus abordable les avantages 
logiciels de Lisa et de sa souris, avec 
une puissance et une capacite redui- 
tes. 

Des que nous aurons eu 1'occasion 
de travailler reellement avec Lisa ou 
Mcintosh, nous vous ferons partager 
nos impressions plus en detail. 
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L' Apple He a l'essai 



Jean-Frangois Duuiuier 



L" Apple He (e pour «enhanced», 
c'est-a-dire ameliore) a ete an nonce 
par Apple le 19 janvier dernier. Des- 
tine a remplacer le modele Apple 11 + 
bien connu, il commence a se repan- 
dre dans les boutiques micro- 
informatiquos. Grace a l'amabilite de 
la societe I.E.F., j'ai pu en avoir un 
exemplaire pendant une soiree, de 
quoi I'examiner sous toutes ses cou- 
tures. 

Premiere constatation : si le nom 
change, la ligne demeure : le boTtier 
est celui que nous connaissons tous- 
Seul le nom a change pour s adapter 
au nouveau logo Cependant. pour 
TApple-o-mane aveiti, pas de risque 
de se tromper pour autant : le lie 
dispose d'un clavier plus complet qui 
se remarque des le premier abord. 

Un clavier plus complet 

Outre ses 11 touches de plus (63 
contre 52), le clavier du J7e presente 
de nombreuses differences avec 
celui du II. Nous en commentons ci- 
dessous les plus notables. 

La touche RESET est mise a I'ecart 
du reste du clavier afin d'eviter les 
fausses manipulations. De plus, le 
RESET n'est pris en compte que 
lorsque la touche CTRL est enfon- 
cee (il n'y a plus la possibility de 
choix offerte sur le II entre RESET 
tout seul et la double action CTRL 
RESET). 

Les minuscules sont disponibles au 
clavier et affichees comme telles a 
1'ecran . En fait, tous les codes Ascii 
sont generables au clavier. 

Une touche « Shift-lock » permet le 
blocage du clavier en majuscules. 
C'etait necessaire pour la program- 
mation en Basic (1'Applesoft, 
comme le DOS. n'accepte que les 
majuscules). Un bon point : le blo- 
cage majuscule/minuscule n'affecte 
que les touches alphabetiques. 
Appuyer sur « 1 » donne toujours le 
« 1 ». quelle que soit la position de la 
touche Shift-lock. 

Quatre touches de'gestion du cur- 
seur sont rassemblees en bas a droite 
du clavier. On y retrouve bien sur les 
classiques fleches a droite et a gau- 
che, mais egalement les fleches vers 
le haut et vers le bas. 



Toutes les touches qui generent un 
code sont a repetition automatique. 
Le temps entre le premier caractere 
et le deuxieme est relativement long, 
ce qui evitera, je pense, toute fausbe 
manoeuvre. En raison de cette repe- 
tition automatique. il n'y a plus de 
touche REPT (repetition). 
Deux touches marquees l'une d'une 
petite pomme vide (pomme 
«ouverte»), l'autre d'une pomme 
pleine (pomme «fermee») sont pla- 
cees de pait et d'autie de la bane 
d'espacement. Files ne generent 
aucun code (elles sont en fait equi- 
valentes aux houtons sur les poi- 
gnees de jeux). mais ont quelques 
fonctions particulieres quand elles 
sont enfoncees en meme temps que 
CTRL-RESET ; 

• la pomme otive.rte force I' Apple a 
redemarrer (et done a rebooter s il 

y a un controleur) quelle que soit 

la configuration. Cela devrait per- 
mettre d'epargner considerabie- 
ment le bouton de 1'alimentation 
qui. Texperience le montre. sup- 
ports tres mal les operations de 
«marche/arret» repetitives. 

• la pomme fermee provoque l'exe- 
cution d'un autotest. 

Parmi les nouvelles touches, on 
trouve eqalement une touche de 
tabulation *TAB» et une touche 
a DELETE » quJ pourront Sire utili- 
sees par les logiciels prevus pour le 
7/e. 

Le clavier est utlllsable en Azerty ou 
en Qwerty. La selection est faite par 
un bouton poussoir judicieusement 
place sous la partie inclinee de 
I' Apple. Ce bouton commands ega- 
lement le changement de caracteres 
a 1'ecran. Les caracteres francais 
sont done disponibles aussi bien au 
clavier qu'a 1'ecran. Malheureuse- 
ment, la disponibilite d'un double 
clavier se solde par un double mar- 
quage des touches, qui vont done 
jusqu a abriter 4 signes differents sur 
leur cabochon ! En langage non 
informatique, cela s'appelle un 
casse-tete chinois, et taper plus de 
dix touches sans erreur reieve de 
i exploit. II ne semble pas qu"il existe 
pour le moment la possibilite d'un 
niarquaye unique (Qwerty par 
example) 



Comme pourle 11. un connecteurest 
toujours prevu pour Ig clavier nume 
rique separe. 

Certames publicites ont fait etat de 
touches de fonction programmables. 
La seule documentation que favais 
en ma possession (Manuel de Refe- 
rence He) n'y faisalt pas allusion. De 

meme, le programme de demons- 
tration et d'in traduction au clavier ne 
mentionne aucune possibilite de tou- 
ches de fonctions. 

Outre le probleme de double nota- 
tion des touches, j'ai un deuxieme 
regret concernant le clavier : 
Fabsence de buffer. La refonte du 
clavier etail ["occasion revee d'intro- 
duire un buffer de caracteres tel 
qu'on le trouve sui I 1 Apple /// et 
meme sur le II (avec la carte Key- 
board Enhancer de Videx par exem- 
ple). Le buffer est comme toutes les 
bonnes choses : une fois qu'on y a 
goute, on ne peut plus s en passer ! 

Par rapport a F Apple IL ces connec- 
teurs ont les memes signaux disponi- 
bles sur leurs broches. ce qui signifie 
que la majoritc des cartes d'exten- 

sion extstant sur le II sont compati- 
bles, notamment les controleurs de 
lecteurs de disquettes, les interfaces 

imprimantes Gt la Softcard Z80. Les 
exceptions sont les cartes qui 
devaient obligatoirement se mettre 
dans le slot (ROMcard Applesoft 
ou Integer par exemple) et toutes les 
caites necessilant d'oter un circuit de 
I' Apple pour connecter un cable a sa 
place (cas de certaines cartes RAM 
16.32.64 et 128K ou He cartes 80 
colonnes). 

La nouveaut§ vient d'un connecteur 

supplementary situe en pEein milieu 
de la carte et denomme « Connec- 
teur Auxiliairen (quelle imagina- 
tion !). Ce nouveau connecteur 
comprend 60 contacts (contre 50 
aux connecleurs de slot). Son 
emplacement (dans le prolongement 
du slot 3) inteidit son usage simul- 
tane avec le slot 3. II est prevu spe- 
cialement pour les extensions 
memoire et pour 1'extension 80 
colonnes (de nombreux logiciels 
imposent I'utilisation du slot 3 pour 
les cartes 80 colonnes pour Apple II. 
ce qui explique la position du con- 
necteur auxiliaire) . 
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Trois canes actuellement disponibles 
en France utilisent ee eonnecteur : 

• une carte 80 colonnes ; 

• une carte SO colonnes doublee 
d'une extension memoire de 
64K : 

• une carte RVB Chat Mauve per- 
mettant 1'obtention des couleurs 
sur un poste teJeviseur SECAM, 
ainsi que ('extension 64K et 80 
colonnes. 

Le microprocesseur 6502 ne pou 
vant pas adresser plus de 64K, 
I'cxtension de 64K n'est pas une 
extension de memoirs centrale a 

proprement parler. Mais elle est 
comparable aux cartes memoires 
disponibles pour le II (Saturn. 
Rarnex, Legend...). Comine elle est 
propose? par Apple et constitue. de. 
ce fait un standard, de nombreux 
s vnnt nnuvnir en faire u? 



et pour la generation video des 
caracteres permet une tres grande 
souplesse. Chaque pays a sa version 
nationale du He. disposant en plus 
du Qwerty, d'un clavier equipe des 
caracteres specifiques a la langue, et 
do leur generation a l'ecran. 
En ce qui eoncerne la generation 
video, il faut preclser que les He ven- 
dus en France sont equipes en stan- 
dard d'un modulateur PAL selecta- 
ble par switch (sur la carte mere) 
Les possesseurs de postes de televi- 
sion hi — on tristandards pourront 
done profiter directement des cou- 
leurs, sans aucune carte supplemen- 
tal. Les autres devront se conten- 
ter du noir et blanc ou attendre Tarri- 
vee imminente d'une carte «Chat 
Mauvre» adaptee au ffe (pour vous 
consoler, sachez que le standard 
SECAM est techniquement le meil- 



Du c6te des slots... 

Sept connecteurs (slots) numerotes 
de 1 a 7 sont disponibles. II est 5 
noter qu'il n'y a done plus de slot 0. 
L'expllcation en est simple ; €tant 
donne la presence sur la carte mere 
de 64 K de meinoiie vive, le s»lol Q. 
est consider^ comme etant occupe 
par une carte ]angage 16 K. 

Pelil detail inteiessant : la presence 
a rote des slots d'un temoin de ten- 
sion (plus d'excuses pour les cartes 
mises ou enlevees avec I'Apple en 
marche !) . On note egalement le 
btindage complet de Tarriere de 
I'Apple, desormais en metal et soli 
daire de la plaque du fond. Les 
grandes echancrures ont laisse la 
place a de multiples ouvertures pre- 
vues pour la fixation de connecteurs. 
Ceci devrait permettre de ne plus 
avoir a demonter I'Apple pour bran- 
cher le cable de Tlmprlmante ou de 
toute autre carte interface. Autre 
amelioration pour les fanas de jeux : 
un ronntff.teur situe a cote de 
Pentree cassette permet de brancher 
les manettes de jeux sans avoir a 
demonter le capot et surtout sans 
devoir se munir d'une loupe pour 
effectuer le branch ement ! 

Les logiciels 

Quant a son utilisation, le //e se com- 
porte comme un II equipe d'une 
carte langage. Le langage resident 
est le Basic Applesoft qui n'a pas 
bouge d'un iota. Les disquettes sont 
toujours au format DOS 3.3. En fait, 
il semble que les seules modifications 
« soft » effectuees concernent le 

moniteur (Prom F8), qui a ete entie- 

rement reecrit. Toutes les routines 

de gestion ecran ont §te modifiees 

pour prendre en compte la presence 
eventuelle d'une carte 80 colonnes. 
De meme, les routines concernant le 
clavier autorisenl I'uLilisdLiun des 
minuscules- Enfin, un atitotest a ete 
ajoute (active par les touches CTRL- 
RESET-pomme fermee). Comme 
ces modifications ont necessity plus 
de place memoire, 1'espace SC1UU- 
$C7FF aupaiavant dedie a ladres- 
sage des slots est maintenant selecta- 
ble entre les slots et une Prom. 
Malgre toutes ces modifications, les 
principaux points d'entree du moni- 
teur ont etc gardes aux memes 
adresses. Vous pourrez toujours, par 
exemple, passer en mode moniteur 
en tapant CALL- 151. Ainsi, sur 
300 programmes comrnerciaux tes- 
tes sur Apple J/e, j'ai lu que 95 % 



Selon certains renseignements que. 
je n'ai malheureusement pas pu veri- 
fier, l'adjonction de 1'extension 64K 
permettrait de plus de disposer d'un 
graphisme haute resolution plus 
complet : 560 x 192. 

Sous le capot 

La carte mere a ete totalement 
refaite - legerement plus petite, elle 
s'arrete avant le clavier, ce qui per- 
met d'acc6der a tous les circuits sans 
demonter autre chose que le capnt. 
Le nonibre de circuits integres est 
passe d'environ 90 a 35 Cette 
reduction permet d'espeier bien 
entendu une fiabilite accrue. Elle 
s'accompagne egalement d'une 
reduction de la consommation de la 
carte mere. L'alimentation etant res 
tee la meme, on dispose ainsi de 
plus de puissance sur les slots. 

Le gain de circuits est essenticlle- 
ment du a integration de plus en 
plus poussee des composants utili- 
ses. Par exemple, les memoires 
vives RAM utilisees sont des 64 Kbits 
au lieu de 16, ce qui permet de faire 
64 Koctets avec seulement huit cir- 
cuits. De meme, les memoires inci- 
tes utilisees sont des 32 Kbits au lieu 
de 16. Enfin, deux circuits a 40 pat- 
tes tronent en plein milieu de la 
carle. Deiiuimnes MMU (Memory 
Management Unit) et IOLJ (Input 
Output Unit), ils ont ete realises spe- 

cialement pour Apple (il couiera de 
nombreux bits dans votre Apple 
avant que vous ne puissiez acheter 
un He made in Taiwan !!!) 

L'utilisation de memoires repro- 
□rammables pour le codage clavier 



*ur...). 

Trues et astuces 

De Futility 

du symbole « : » 

] : READ permet de lire les 
DATA d'un progiamme (arr£te 
par CTRI.-C, par exemple). alors 
que ] READ donne le message 
NOT DIRECT COMMAND de ia 
commande READ du DOS. 

]:1N#0:PR#0 permet de 
deconneter de DOS. Pour le 
reconnecter : CALL 1002 ou 
'3D0G ou RESET. 

Parfois. ] PR#6 ne marche 
plus pour rebooter (quand par 
exemple la commande PR # du 
DOS a ete endommagee) Pour 
s'en sortir sans devoii eleindrc 
Pappareil, faire ] : PR #6 ou 
"6CTRL-P. 

La raison de tout cela tient au fait 
que le DOS intercepte les com- 
mandes tapees en debut de ligne 
au clavier, avant de redonner le 
controle a l'Applesoft (ou au 
moniteur). D'ou des problemes 
avec les commandes synonymes 
entre le DOS et Applesoft : 
PR#, IN # et READ. 

Ainsi. si Ton entre en mode direct 
A = 3: CATALOG, nnstruction 
CATALOG du DOS n'est pas 
reconnue. C'est comme cela 
que]: PR # 6 active le « PR # » de 
l'Applesoft (qui marche toujours, 
s'il est resident) et non celui du 
DOS. qui peut avoir ete ecrase. 
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avaicnt tournc du premier coup et 
3 % apr£s quelques legSres modifi- 
cations. 

Pour ma pari, tons les logiciels que 
j'di e^bdytb oiil pdifditement loume, 
ce qui est rassurant du point de vue 
compatibilite. 

Et le portefeuille... 

De merae que pour FApple II ces 

derniers mois, 1c lie sera essentielle- 
ment vendu sous forme d'une confi- 
guration comprenant un He 64K, un 
controleur. un drive el un moniteur 
a ecran jaune . Les cartes d'extension 
speclfiques au He sont la carte Apple 
80 col., la carte 80 col. + 64 K et la 
carle Chat Mauve. II est a rioter que. 
si cette derniere etait disponibles par- 
tout, les deux autres etaient totale- 
ment inconnues a deux des Cinq 
boutiques consultees. Les prix TTC 
que j'indique ci-dessous resultent 
d'un sondage effectue par telephone 
aupres de cinq boutiques parisien- 
nes : 

• coi ifiyurcilion : 

de 14 700 a 14 995 F 

• Apple lie seul : 

de 9 900 a 11 950 F 

• carte 80 col. : 

de 900 a S999 F 

• carte 80 + 64 K : 

de 2 300 a 2 400 F 

• carte « Chat Mauve » * 
environ 3 000 F 

On remarquera, en dehors du cas 



particulier de FApple He seul, que les 
piiA vdiienl liKb peu d'un teveiideui 
a I 'autre?, resultaf de liiniformisation 
des prix imposee par Apple-Seedvin. 

Conclusion 

J'ai rencontre deux problemes parti - 
culiers sur Fexemplaire qui m a ete 
prete.' D'une part* la commande 
PR & suivie d un numero correspon- 
ddiit a un slul vide selecte Id pre- 
miere carte trouvee dans un slot 
superieur. C est ainsi qu'un PR # 4 
fait rebooter Ie disque, bien qu'il n'y 
ait aucune carte dans le slot 4 (le 
controleur etant en 6!). D'autre 
part, il semble que FApple dont je 
disposals avail quelques difficulties a 
s'initialiser correctement apres des 
coupures de tension breves (infe- 
rieures a 2 secondes), ce qui m'arri- 
vait lorsque j'utiiisais Finterrupteur 
de Falimentation pour faire rebooter 
FApple. 

En dehors de ces pioblemes 
mineurs, il faut snuligner Fexcellente 

compatibilite du He avec son prede- 
cesseur le II + . tant au niveau du 
materiel (j'ai essaye sans problems 
toutes mes cartes interlaces, y com- 
pris une extension 128K Saturn) que 
du logiciel. 

Cependant. ie dots dire que cette 
premiere confrontation avec Ie He 
m'a lalsse un sentimeni de decep- 
tion. Attendant avec impatience ce 
successeur de FApple II. je me suis 
retrouve en face de la meme 
machine, mais incapable de taper 



trois touches de suite ! Cette impres- 
sion ddbbeiice de nuuveaute a ele 
certainement accentuee par le fait 
que je dispose deja des minuscules 
sur mon Apple N. D'autre part, je 
n ai pas pu emprunter d une carte 

extension 80 colonnes pour mon 

essai. ce qui ne m'a pas permis 
d'apprecier Ie confort apporte par les 
80 colonnes. 

Autre deception : les prix. Compte 
tenu d'un abaissement vraisemblable 
des couts de production (carte plus 
petite, nombre de circuits en 
baisse...). on pouvoit r£ver a des 
prix inferieurs a ceux du II. Helas. Ie 
He affiche un bon 2 000 F de plus. 
Comme, d'auire part, le II ne sera 
plus vendu, il s'ensuit une augmen- 
tation importanre du sysieme -mini- 
mum qui atteint maintenant les 
15 000 F. Si cette somme ne consti* 
tue pas un probleme pour les utilisa- 
teurs profession nels (tres majorilai- 
res il est vrai), pile devient fort diffi- 
cile a reunir. en cette periode de 
crise, par un utilisateur individuei qui 
preferera alors se reporter sur des 
machines plus accessibles. L evolu- 
tion dans le domaine de la micro- 
intormatique se traduit d'habitude 
par « plus puissant et moins cher ». 
II semble que ce ne soit plus le cas 
desormais chez Apple. Dommagc ! 

Ceci dit. I'Apple He a pour avantages 
sa compatibilite et sa liability plus 
grandes. Si Fon pouuait avoir une 
version Azerty simple (16 cabochoris 
a changer) , ce serait beaucoup 
mieux ! 



Des programmes relogeables 

Philippe Frangois 



Les programmes en langage 
machine dependent en general de 
Tadresse h partir de laquelle ils ont 
ete assembles et ne peuvent de ce 
fail « fonclioimer » que s'ils. sont lan- 
ces a partir de cette adresse. Si nous 
voulons qu'un programme se char- 
geant en haut de la memoire puisse 
fonctionnei sans probleme dvec un 
Apple de 16, 32 nu 48 K, il nous 
faudrait normalement prevoir trois 

versions du meme programme ! 

La solution evidente d'un tel pro- 
gramme consiste naturellement h 
ecrire des programmes indepen- 
dants de leut engine, e'est-a-dire des 
programmes relogeables (relocatable 



programs), executables quelle que 
soit leur origine. 

Les deux obstacles principaux a de 
relies pratiques soril les brandie- 
ments inmnditinnnels (rIMP, ahre- 
viation de a jump ». l'equivalent en 
assemhleur du GOTO) et les appels 
a des sous-programmes (JSR. 
« jump to subroutine », l'equivalent 
du GOSUB) comme le montre Ie 
petit programme ci-dessous : 

1 J MP DEBUT 

2 DEBUT JSR RIEN 

3 BRK 

4 ' 

5 RIEN RTS 

6 * 



Le probleme pos£ par les JMP se 
resout aisement : il suffit de rempla- 
cer ces branchements incondition- 
nels (dont les adresses sont explica- 
tes) par des branchernenls condi- 

tionnels forces. En effet, les branche- 
ments conditionnels du type BEQ, 
BNE,. etant des branchements 
relaLifs, ils ne dependent pas de 
Fadresse d'implantation du pro- 
gramme. On remplacera done tous 
les JMP du programme par un des 
couples destructions suivant ; CLC 
et BCC. ou bien SEC et BCS. 



1 
2 

3 ' 



CLC 

BCC DEBUT 
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4 DEBUT 
5 

6 ' 

7 RIEN 



JSR RIEN 
BRK 

RTS 



Un petit probleme encore, a propos 
de ces branchements conditionnels 
forces : les deplacements etant rela- 
ufs et s'exprimant sur sept bits (le bit 
huit indiquant Je sens du deplace- 
menl, en ditiunL uu en dveii de Id 
presente adresse) ne pourront etre 
superieurs a 126 octets dans un sens 
ou dans Tautre. 

Toute tentative de depassement de 
cette limite sera sanctionnee par le 
fatidique message OUT OF RANGE 
ERROR de 1'assernbleur. 

La technique employee alors sera 
celle de I'ascenseur comme le mon- 
tre I'exemple suivant : 

ORG S800 
CLC 

BCC ETAGE 

. ; suite du programme 

SEC 

ETAGE BCC DEBUT 

. , suite du piogiamme 

DEBUT JSR RIEN 
BRK 



K1EN 



Rib 



Le probleme pose par les JSR se 
resout moins aisement. Neanmoins. 
l'cxamen attentif des programmes 
machines reloqeables du commerce 
(AMPER MAGIC, pour nen citer 
qu'un) , amsi qiie la lecture d'un petit 
article dans Apple Assembly Lines 
(Vol. 2, N° 10. juillet 1982). nous 
ont permis de comprendre la facon 
dont il pouvait se resoudre : 

A la place de chaque JSR (nom du 
sous-pTogrammeh placez les trois 
lignes suivontes : 

CLV 

JSR SFF58 

BVC (nom du sous-programme) 

Mysterieux. n'est-ce pas ? Commen- 
tons done cetre sequence. Loctet 
place a l'adresse SFF58 de la ROM 
Moniteui est toujour egal a $60. 
code de I'lnstruction RTS 

L'appel d'un sous-program rne con- 
sistant seulement en un RTS peut 
paraitre stupide. mais il a pour effet 
de placer les deux octets de la pre 
seme adresse sur la pile (stack), puis 
de les rcssortir. Nous pourrons alors 
reutiliser ces deux octets dans le 
sous-programme concerne : 

RIEN TSX ; valeur du pointeur 
; de pile 

DEX 
DEX 

TXS ; nouvelle valeur 

Le sous-proyrarnrne RIEN poss£de 
maintenant une adresse de retour 



sur la pile, exactement comme si 

nous lavions appele par un JSK 
RIEN normal ! Mais attention, ce 
n'est pas ftni... En effet. si nous 
cssayons de sortir du sous 
programme RIEN par un RTS, nous 
allons nous retrouver a 1'instruction 
BVC RIEN qui sera de nouveau exe- 
cutee et nous entrainera dans une 
boucle infinie ! II n'y a malheureuse- 
ment pas d'instruction 6502 du type 
SEV (<* 5el overflow ») , dussi dlluus- 
nous faire appel de nouveau a notre 
precieuse adresse SFF58 et terminer 
notre sous-programme RIEN par le 
couple d 'instructions suivantes : 



BIT $FF58 



RTS 



place 1'over- 
flow 



L'instruction BIT (voir par exemple 
« Programmation du 6502 » par 
Rodnay Zaks. page 103) effectue un 
ET entre I'accumulateur A et la 
memoire : mais, surtout. les bits 6 et 
7 de la iiiemoiie sunt iiansfeies dans 
les hits V et N du registre d'etat. I_a 
memoire contenant $60 (sort 
01100000 en hinaire). le bit V du 
registre sera done bien positionne a 
la valeur 1. 

Resumons-nous par ce petit pro- 
gramme ou sont utilisees toutes les 
techniques examinees dans cet arti- 
cle : 



RELOGEABLE 
Big Mac 











1 


X 
















2 


RETURN 


EQU 


SFF58 












3 


COUT 


EQU 


*FDED 












4 










8888! 


18 






5 




CLC 


* 


PSEUDO JMP DEBUT 


8061: 


90 


08 




6 

7 


* 


BCC 


DEBUT 




8883; 


88 






8 


DEBUT 


CLV 


X 


EMP1LE LA PRESENTE 


8004: 


20 


58 


FF 


9 




JSR 


RETURN 


ADRESSE 


8087i 


58 


96 




18 




BVC 


BELL 


PSEUDO JSR BELL 


800?: 


A? 


CI 




11 




LDA 


tt"A" 




880B: 


28 


ED 


FD 


12 




JSR 


COUT 




800E: 


A0 






13 
14 
15 


* 
* 


RTS 






800F: 


BA 






\6 


BELL 


TSX 


X 


MI SE A JOUR 


88 10: 


CA 






17 




DEX 


X 


DU POINTEUR 


6011: 


CA 






18 




DEX 




DE PILE 


8012: 


9A 






19 




TXS 






80131 


A9 


87 




28 




LDA 


#*87 




88 15: 


28 


ED 


FD 


21 




JSR 


COUT 




8018: 


2C 


58 


FF 


22 
23 




BIT 


RETURN 


ARME LE BIT N 

DU REGISTRE D'ETAT 


88 IB: 


68 






24 




RTS 
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Dump Pascal 

Michel Marquis 



Le programme ci-contre s'adresse a 
ceux qui souhaitent vtsualiser les 
informations stockees sur une dis- 
quette formatee en Pascal. Ces 
informations sont groupees en 
280 blocs de 512 octets pai dis- 
quette . 

Description generate 

Le programme edite sur l'impri- 
maule un « dump » de la disquette 
tel que prescntp en fin d'article. Cha- 
que ligne indique le numero d'un 
groupe de huit octets, puis chacun 
de ceux-ci en decimal (de a 255), 
et enfin les caracteres ASCII corres- 
pondant a ces huit octets. 
Vous vous etes probablcment apcr- 
cus que le code ASCII est le meme 
pour un octet X (de a 127) et 
l'octet X + 128. Toutefois, dans le 
listing ASCII des octets dont la 
valeur depasse 127, nous avons pre- 
cede ceux-ci du caractere exponen- 
tiation « A ». 

D'autre part, les caracteres dont les 
codes sont rompris entre et 32 
incSus ne sont pas tous imprimables. 
C'est pourqimi nous les avons rem- 
places par un mnemonique relatif a 
leur role respectif (12 = LF, 
27 - CSC, 7 - BEL,...) . Ces 
mnemoniques sont imprimes apres 
que leur signification ait ete prelevee 
dans le tableau TABCTRL OF 
STRING [3]. Ce tableau est rempli 
en debut de programme par la pro- 
cedure LECTABCTRL a partir du 
fichier precedemment cree par le 
programme WRITECTRL sur lequel 
nous reviendrons ulterieurement. 

Le programme 

Lors de son execution, le pro- 
gramme LECTBLOCK demande a 
l'utilisateur le numero du canal asso- 
cie a la disquette a analyser, puis 
celui du premier bloc, et enfin le 
nombre de blocs a « dumper ». Pour 
savoir & partir de quel bloc cette ope- 
ration doit debuter, il suffit d'exarni- 
ner le directory de la disquette avet 
le FILER en selectionnant la com- 
mande E. 

Des cet instant, le * dump » sort sur 
Timprimante et occupe 65 lignes sur 



une page qui en contient normale- 
ment 66. ce qui permet d'archivex 
une page de listing par bloc de 
512 octets. II faul rernaiquei que, 
contrairement au BASIC, Pascal 
enregistre ses fichiers sur disquette 
de fagon continue, si bien qu il est 
tres simple de lister un fichier 
connaissant l'adresse de son premier 
bloc et sa longueur (commande E 
sous FILER). 

Le proqramme lui-meme est simple 
et s'articule autour d'une instruction 
UNITREAD (numdrive, rich, 512, 
numbloc) . Cette instruction est capa- 
ble de lire des informations non 
structurees, contrairement aux 
autres instructions d'entree/sorlie. 
Les parametres de cette instruction 
soul ; le numero de drive, fieri (un 
tableau de caracteres). 512 (nomhre 
d'oclets a lire) et numbloc (le 
numero du bloc). 

Notons egalement qu'afin d'alleger 
au maximum le programme, aucun 

controle de coherence n'a ete pro- 




gramme dans les salsies. ce qui 
implique un tant soit peu de vigi- 
lance lors de l'entree des parame- 
tres On aurait pu effectuer des tests 
de coherence,, mais il faut bien com- 
prendre que ('utilisation Hp. ce pro- 
giamme est ponctuelle, dans le but 
de scruter des informations sur dis- 
quette, ce qui n est pas une manipu- 
lation courante. 



II n'est toutefois pas inutile de l'exe- 
cuier simplement par curioslte, 
noTamment sur les fichiers illisibles 
par des moyeiis « leyaux » comme 
SYSTEM APPLE, SYSTEM MIS- 
C1NTO, ... ou sur le texte de voire 
programme (vous serez surpris !) . A 
litre d'exemple. nous avons joint en 
page 34 un « dump » partiel du 
fichier CTRL. DATA cree par le pro- 
gramme WRITECTRL. 

Mise en ceuvre 
du programme 

1 , Entrer le programme 

WRITECTRL 

2 . L'executer en y entrant les mne- 

moniques ASCII de a 32. 
S'aider de Pom's 4 ou du 

« dump » donne en annexe. 

3 . Entrer le programme 

LETBLOCK. Vous pouvez chan- 
gei le numero du diive sur lequel 
SG trouve FICHCTRI. en rempla- 
cant #5: CTRL. DATA par 
#4- : CTKL.DATA 

4 . Lancei i execution. 

Bien entendu. si vous avez achete la 
disquette d'accompagnement de ce 
numero. vous y trouverez les pro- 
grammes tout prets. 

Conclusion 

Comme nous l'avons remarquc plus 
haut, ce proqramme n'est pas d'une 
utilisation courante, mais il peut 
apporter beaucoup a ceux qui tra- 
vaillent * pres » du systems. De 
toute facon, il presente un interet 
pedagogique indiscutable. Pour 
1'instant, nous nous limitons 3 la 
publication d'un programme capable 
uniquement de lire des blocs sur dis- 
que, done sans danger. II lui man- 
que la possibility de modifier les 
octets Ins, puis de les reecrire. Nous 
ne doutons pas que certains d'entie 
vous I'ecriront rapidement et enver- 
ront leurs contributions a Pom's. 
Pour les antres, si Is suite les inte- 
resse, nous pourrons la publier ulte- 
rieurement. 
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Programme DUMP 



PROGRAM LECTBLOCK; 

TYPE CARACT= PACKED RECORD 

N0M:STRIN6[ 3] 
END; 

VAR FICH: PACKED ARRAY E © . .51 ID OF CHAR; 
PAPIERsTEXT; 

TABCTRL : PACKED ARRAY [ .. 32 ] OF STRING! 33; 
F I CHCTRL : F I LE OF CARACT ; 
NUMBLOCK,NUMDRI«v'E,NBBL0CK! INTEGER; 
REP: CHAR; 

PROCEDURE LECTABCTRL; 
VAR I : INTEGER; 

BEGIN 

RESET ( FI CHCTRL ,'#5: CTRL. DATA') ; 

FOR I :-8 TO 32 DO 

BEGIN 

TABCTRL [ I 3 :=FI CHCTRL^ .NOM ; 
GET <F I CHCTRL) 
END; 

CLOSE (F I CHCTRL) ; 
END; 

PROCEDURE LECTURE ; 
VAR I , J, CH: INTEGER; 

BEGIN 

REWR I TE< PAPIER, 'PRINTER: "> ; 

WR I TELNf PAPIER, 'BLOCK NUMERQ : ' : 45 ,NUMBLOCK) ; 
UN I TREAD < NUMDR IVE , FI CH, 312 , NUMBLQ CK> J 
I : =@ * 

REPEAT ' ' PyW- 



WRITE< PAPIER,' '> ; 
I :=I-8; 

FOR Ji=l TO 8 DO 



NRITE<PAPIER,I :3,' ') ; 





WRITE<PAPIER,CH:4) ; 



CH:=ORD(FICHt 13); * til 

IF CH>127 THEN % z v Nflj 

BEGIN % M 

WRITE(PAPIER,' *'); /!/ x (LuA I 

CH:=CH-128 ■^TO^'tJIlli" 



ELSE WRITE (PAPIER,' '); 
IF CH<=32 THEN WR I T E < PAP I ER , TABCTRL C CH 3 ) 




ELSE WRITECPAPIER.CHRCCH) :3) ; 
I : = I + 1 



END; 

WRITELN( PAPIER) ; 
UNTIL I>51 1; 
CLQSE< PAPIER) ; 
END; 

BEGIN (XPROGRAMME LECTURE BLOCK(S)X) 
LECTABCTRL ; 
REPEAT 

PAGE< OUTPUT) ; 

GOTOXY (5, 5) ; WRITE ( 'NUMERO DU DRIVE < SANS W> : '); 
READLN (NUMDR I VE> ; 

G0T0XY(5, 18) ;WRITE( 'NUMERO DU PREMIER BLOCK : '); 
READLN (NUMBLOCK) ; 

GOT OXY (5, 15) ; WRITE ( 'NOMBRE DE BLOCK (S) : ') ; 
READLN (NBBLOCK) ; 
REPEAT 
LECTURE ; 

NUMBLOCK :=NUMBLOCK+ 1 ; 
NBBLOCK :=NBBLOCK- 1 ; 
UNTIL NBBLOCK=0; 

GOTOXY< 10,22) ; WRITE ( ' CONT I NUER ? <0/N> ') ; 
READ(REP) ; 
UNTIL REP='N' 
END. 



Programme WRITECTRL 



PROGRAM WRITECTRL; 

TYPE CARACT=PACK£D RECORD 

NOM: STRING [3D 
END; 

VAR I : INTEGER; 

F I CHCTRL : F I LE OF CARACT; 



BEGIN 

OUVERTURE; 

RESET(FI CHCTRL, '85: CTRL. DATA') ; 
PAGE (OUTPUT) ; 
FOR I :=0 TO 32 DO 
BEGIN 

WRITE < 1 :3,' = ') ; 

READLN < FICHCTRL A .NOM) ; 

PUT(FI CHCTRL) ; 
END; 

CLOSE < F I CHCTRL , LOCK) 
END. 



PROCEDURE OUUERTURE; 
BEGIN 

(X*I-30 

RESET < F I CHCTRL , J #5 : CTRL . DATA ' ) ; 
<**ItX) 

IF I ORESULTO0 THEN 
BEGIN 

IF IORESULT=16 THEN REWR ITE( F I CHCTRL ,' *5 : CTRL . DATA' ) 
ELSE BEGIN 

PAGE (OUTPUT) ; 
WRITE ( 'ERREUR E/S') ; 
EXIT (WRITECTRL) 
END; 

END; 

CLOSE<FI CHCTRL, LOCK) 
END; 
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Pom's n° 7 



TOUT SUR LA MICRO 
INFORMATION 




du 14 au 18 juin 1983 



L'Exposition : 

du 14 gu 18 juin 1983 

• mardi 1 4, mercredi 1 5, vendredi 1 7, de 9 h 30 a 1 8 h 
• nocturne le jeudi 1 6, de 9 h 30 a 22 h • samedi 1 8 de 9 h 30 h 1 7 h. 

Tous les mat£riels, Toutes les applications des micro- personnels, venez evaluer les materiels, comparer leurs 
ordinateurs. Que votre motivation soit professionnelle ou couts et vous renseigner sur les applications disponibles. 

Nouveaute 83 : une animation « logiciel » 

(organ iscc par Sybex et Logiciels & Services). 

Une banque de dOlinees des lOgiCielS presented par meilleurs logiciels pour micro-ordinatcurs. Les laureafs pre 
Irs exposonts a MICRO-EXPO vous guidera, selon vos senteront leurs logiciels pendant touTe la duree de MICRO- 
besoins specifiques, a travers I'exposition. EXPO (Renseignements : Logiciels & Services, tel. \ (1) 

Ull « grand COncours» destine d recompenser les 226.11.25). 

Et pendant toute la dur6e de I'exposition, une animarion-jeux : venez affrontez I'ordinateur et peut-etre... le battre. 

Le congres 

du 13 au 18 juin 1983 

Du debutant 6 l f expert, une occasion unique dans l'ann§e de se former et de s'informer. 



Seminaires prof essionneis 


conferences Grand Public 


Les rnicro-ordinareurs : presentation, choix 


Choix d'un micro-ordinateur 


Leu microprocesseurs 


Les rnicro-ordinateurs de poche 


Les langages : BASIC, PASCAL, APL 


Le traitement de texte 


Les nouveaux langages : FORTH, LOGO, PROLOG, C 


L'enseignement assiste par ordinateur - E.A.O. 


La telematique 


Les systernes d'exploiluliun pour rnicro-ordinateurs 16 bits 


Le traitemenr de texte 


Journees specialisees, avec demonstrations : 

— pour les- professions juridiques, 

— pour lu inedecine, 

— pour I'agriculture. 


L'entreprise, son systeme d'information et 1'informatique 


La comptabilite et ses logiciels 


Les hoses de donnees..et leurs logiciels 


Journees des constructors : 

COMMODORE, GOUPIL, HEWLETT-PACKARD, 
TANDY, THOMSON, VICTOR LAMBDA 


La gestion et le Visicalc 


Le systeme d'exploitation MS-DOS 



INFORMATION 



Norn ! 

Adresse .• 

Code postal :| I I I I I 

□ entrees(s) a demi-tarif 



Ville = 



□ Programme detail le du congres 



4, place Felix-Eboue - 75583 PARIS Cedex 12 - Tel. : (1) 347.30.20 - Telex : 21 1 801 F 



8 s Congres-Exposition - MICRO-ORDINATEURS 

Palais des Congres - CIP - Porte Maillot - Paris 



SYBEX organise par • 

SYBEX 4, place Felix-Eboue - 75583 PARIS - Tel. : (1) 347.30.20 - Telex : 211 801 F 
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Pom's n° 7 



Un generateur 

Denis Sureau 



Bien que totalement inedit, ce gene- 
rateur peut etre d'une grande utility 
pour un programme scientifique ou 
educatif, ainsi que pour tout pro 
gramme devant conserver el utihser 
des donnees sans creer dc fichicrs. 
En fair, il devrait aussi permertre de 
realiser des programmes sortant de 
I'ordinaire... 

Le generateur donnera a voire pro- 
gramme la facullte de se developper 
lui-m£me, grace a une simple com- 
mande qui, lorqu'elle est rencon- 
tiee, d poui effet d'ajouter un 
numern de ligne a toute instruction 
Applesoft et d'inserer la liigne en 
question Hans le programme. 

fcn fait, il a fallu pour lecrire recourir 
a des routines de la ROM Applesoft 

assez peu connues... Ces routines 

seront indiquees plus loin. 

Principe de 
fonctionneinent 

Ayant souvent eprnuve 1'inconve- 
uient, dans un programme utilisant 
des fnnrtions mathematiques, de 
devoir stopper celui-ci pour y inserer 

des lignes de definitions ou pour y 
incorporer des DATA, je me suis dit 
qu T il serait merveilleux de disposer 
d'une routine en asssembleur accor- 
dant aux programmes ecrits en 
Applesoft une dimension evolutive, 
la capacite de s'auto-generer ! 

Les donnees entrees par INPUT au 
cours du programme pourraient par 
exemple lui etre incorporees sous 
forme de lignes destructions, avec 
un numgro qui serait auiomatique- 
ment increments et place au debut 
de la liyne yeneiee. 
Pour que le generateur puisse ope- 
rer sur toute instruction Applesoft, 
une commande INPUT digerant vir- 
gules et deux -points est indispensa- 
ble ; or, cette commande a ete reali- 
see anterieurement et publie dans le 
numero 5 de Pom's (voir « La pro 
grammation facilitee »|. 

Parmi les instructions qui compose- 
ront les lignes generees. Tune serait 
correlative a Fauto-ecriture d'instruc- 
tions DEF. En effet, lorsque le pro- 
gramme appellera une llgne conte- 
nant des instructions DEF. cet appel 
necessilera un RETURN, qui devra 



par consequent £tre produit par te 
generateur. 

Demander au programme d'effec- 
tucr un appel par GOSUB ou 
GOTO a des lignes qui n'exisient pas 
encore, et que Ton propose d'ajou- 
ter durant le traltement. pose quel- 
ques questions ! Une convention 
s'impose alors : les lignes ajoutees 
commenceront par exemple a partir 
du numero 20 000. avec un inue- 
ment de 10 ; on calculera ainsi le 
numero d'une ligne creee a partir de 
.son rang. S'il s'agit de la troisierne. la 
premiere ligne ayant le 
numero 20 000. ce sera la ligne 
20 020. 

On se dit que. puisque le generateur 
peut ajouter une nouvelle ligne au 
programme, il serait egalement 
necessaire de pouvoir modifier la 
dcrniere ligne existante. lorsqu'il 
s'agit d'un RETURN notamment. 
Cette possibility serait obtenue par 
une option a laquelle on donnera le 
nom de POP. 

Ces projets me paraissaient prompt- 
teurs , firnayinais un pcogiamme 
rlemarrant avec deux lignes. s'auto- 
generant a partir de quelques indica- 
tions et se sauvegardant tout seul sur 
la disquette, une fois la memoire 
saturee... 

Un ecueil de taille s'opposait toute- 
fois a la realisation ; il fallait trouver 
la procedure Applesoft converrissant 
les lignes en format programme, 
dans lequel les instructions sont 
representees par un code d un seul 
octet. Je ne possedais pas la docu- 
mentation necessaire et entrepris de 
la chercher tout seul dans 1' Apple- 
soft, a partir de 1'adresse SDQO0. 

C'est a 1'adresse $D56D que je Pai 
enfin trouvee, rebelle a un emploi 
immediat, finissant avec la longueur 
des donnees en Y alors qu'eile est 
initialemenr en X dans le buffer 
d'entree et modifiant en outre 
TXTPTR, Fensemhle des pointeurs 
servant a analyser le programme en 
cours. Cette routine une fois decou- 
verte (ainsi que quelques autres a 
['occasion), le module etait realise ; 
en voici le mode d'emploi. 

Mode d'emploi 

Une seule commande penuet 



d'obtenir la generation d'une ligne 
Applesoft de tout type ; son format 
comporte deux variantes. soit 
I'emploi d'un mot reserve de 
1' Applesoft, sott I'emploi d'un carac- 
tere quelconque. 

Les instructions & DATA A$ et & 
DEF AS.Iorsqu'elles sont rencon- 
trees, ont pour effet d'ajouter au 
programme les instructions conte- 
nues dans AS sur une ligne qui com- 
mencera automatiquement par 
DATA ou DEF. Plus generalement, 
avec la syntaxe & X A$, X est choisi 
par Tutilisateur. Cela peut etre un 
caractere quelconque ou un mot 
reserve de I' Applesoft, avec un effet 
different : le mot reserve sera incoi- 
pore en debut de ligne, le carartere 
ne le beia pas. 

L" option POP utilise la syntaxe & 
POP DATA A$ ou enfin & POP X 
AS, la nouvelle ligne remplacant la 
derniere et prenant son numero. 

Les commandos du generateur peu- 
vent s'employer en mode direct si un 
programme est present en memoire 
et si la LOMEM a ete deplacee. Ceci 
est une precaution dont on s'assu- 
rera toujouTS avant d'uttliser le gene- 
rateur : la LOMEM doit etre placee 
sufflsarnmeni haut pour proteger les 
variables, puisqu'elles suivent imme- 
diatenient, en lemps nuinidl, le pio- 
gramme dans la memoire. 

NDLR : ne pas oublier d'abaisser la 
H1MEM au-dessous du d§but du 
generateur avec HIMEM : 38048 si 

I'orlglne est en S94A0 comme sur le 

listing. 

Routines Applesoft 

Les deux plus importantcs sont 
MOVSTR ($E5E2) pour le transfert 
des donnees et en $D56D celle qui 
« tokenize » le buffer d entree, e'est- 
a dire qui convertit les mots reserves 
en codes. 

On appelle $D56D avec X mis a 0, 
en sauvegardant TXTPTR qui sera 
pointe" sur te buffer d'entree ($200), 
et en remplacant par $0 le delimiteur 
$D (RETURN) se trouvanl a la fin du 
texte lors d'une entree par INPUT. 
Convertie en format Applesoft, la 
ligne se trouve bien sur reduite ; le 
legistie Y contiendra alors la nou- 
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vellc longueur de la ligne. deltmiteur 
compris. 

MOVSTK transfere une donnee 
pointee par Y (ADL) , X (ADH) , Ion 
gueur en A vers l'adresse pointee en 
$71 et $72 (FRESPC). 

MOVINS ($C5D4) fait la meme 
chose que MOVSTR mais copie une 
chaine dont le descripteur est pointe 
en $AB-$AC (STKNG1). Leregistre 
Y revient a et $71-$72 pointent 
maintenant sur la position qui suit la 
chame transferee. Ces pointeurs 
sont increments par la valeur de 
laccumulateur A par une routine 
dont l'adresse est SE5F3. 

FNDLIN ($D61A) est utilisee par la 
commande RESTORE. Elle recher 
che l'adresse de la ligne dont le 
numero a ete place en $50 $51 
(LINNUM) et la pointe en $9B-$9C 
(LOWTR). Si la reran ue C est mise a 
0, la ligne n'a pas ete trouvee. 



Deux lignes consecutives en Apple- 
soft separees par 5 octets : le code 
de fin de ligne, 2 octets qui pointent 
sur la hqne suivante, 2 octets pour le 
numero. L'adresse du numero de la 
derniere ligne s'obtient done en 
lisant les 2 premiers octets de cha- 
que ligne. Jusqu'ci ce que deux « » 
consecutifs signalent la fin de pro- 
gramme. 

L'adresse de la ligne sera pointee 
dans ADRNUM ($1E. $1F), utilise 
pour la conserves et on fera deux 
adressages indirects indexes par Y 
pour avoir acces au numero de 
ligne. Les deux premiers octets de la 
ligne gener£e poinceront sur la fin du 
programme, lis seront suivis du 
numero de la derniere ligne incre- 
ments de 10, puis eventuellernent 
du code induction employe dans le 
format et finalement, du contenu. 

Le listing du programme commente 
toutes les etapes de cette generation. 



Les bons trues... 

Le generateur est court grace a 
i'emploi de routines Applesoft ; 
etant reloqeable, ll peut eire charge a 
l'adresse voulue, de preference au 
sommet de la memoire. protege par 
I'abaissernent de la HIMEM. 

A noter dans la rubrique « trues et 
astuces » : quand on ne incanipule 
pas de fichiers, mais beauroup de 
chafnes de caracteies, il est possible 
de reduire la zone des variables, a 
l'aide de HIMEM et LOMEM, de 1 K 
a 3 K. D'ou reduction des problemes 
dus au nettoyage memoire ! 

Des applications originales peuvent 
s'imaginer. telles que la conversion 
de routines en lignes de DATA, la 
creation de programmes ci partir de 
fonctions et d'affectations deterrni- 
nees par calcul. Imaginons qua par- 
tir de bases bien definies un pro- 
gramme puisse se construire lui- 
meme pour atteindre un but connu 
de lui seul... 



GENERATEUR 
Big Mac 

1 ^xxxxxxxxxxxxxxxx:v:xxxxx uers. 

2 *XXXXX GENERATEUR XXXXX 2.0 

3 *XXXXXXXXXXXXXXXXXXXXXX 

4 *XX PAR DENIS SUREAU XX 

5 *xxxxxxxxxxxxxxxxxxxxxx 

6 XX COPYRIGHT < C) 1982 X 

7 *XXXXXXXXXXXXXXXXXXXXXX 
8 

9 

18 FNDLIN = *D61A 

1 1 FRENUM = *DD67 

12 PTRGET = *DFE3 

13 MOUINS = *E5D4 

14 MOVSTR = *E5E2 

15 6ETADR = *E752 
16 

17 LINNUM = $0950 

18 VARPNT = *6083 

19 FORPNT = *&095 
2© CHRGET = *68B1 
21 TXTPTR = *08E8 
22 

23 LNGTEXT = *80 18 

24 ADRTEXT = *06 19 ;*19-*1A 

25 INSTRUC = *00 1B 

26 SEPARATR = *90 1C 

27 INCR = *801D 

28 ADRNUM = *06 1E ;*1E-*1F 
29 

36 ORG *94A0 

31 

32 *< UN PROGRAMME RELOCATABLE >X 



oo 












AUKrKUb 


JbK 


*h hDfct 


■ OIlO D"T" O 


oc 

db 




1 bX 










DEX 






37 




LDA 


*100 ,X 




38 




CLC 






39 




ADC 


ttDEPART 


-ADRPROG-2 


40 




8TA 






41 




I NX 






42 




LDA 


*100 ,X 




43 




ADC 


*0 




44 




STA 


*3F7 




45 




LDA 


tt*4C 


; JMP 


46 




STA 


*3F5 




47 




RTS 






48 










49 


DEPART 


STA 


INSTRUC 




50 




CMP 


H174 


; RESTORE? 


51 




BEQ 


RESTORE 




52 




TAY 






53 




JSR 


CHRGET 




54 




CPY 


#161 


;P0P? 


55 




BNE 


GENER 




56 




STA 


INSTRUC 


;SI OUI, 


57 




JSR 


CHRGET 


5 INCR MIS 


58 




LDA 


m 


;A 8 


59 




BEQ 


GENER2 




60 


RESTORE 


JSR 


CHRGET 


; PLACE 


61 




JSR 


FRENUM 


;NUM LGNE 


62 




JSR 


GETADR 


j EN *58-51 


63 




LDA 


LINNUM 


; LE PLACE 


64 




STA 


*7B 


; EN NUM 


65 




LDA 


LINNUM+ 


1 ; DE LIGNE 


66 




STA 


*7C 


;DE DATA 


67 




JSR 


FNDLIN 


; CHERCHE 


68 




LDA 


%?& 


; LA LIGNE 



36 
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69 




ADC 


#$■03 ; ADR EN 


134 




BNE 


LOOP 




70 




STA 




135 










7 1 




LDA 


%9C ;MET ADR 


136 




TESTE SI POP OPTION 




72 




A 

ADC 


t*0 ; LI GNE EN 


137 










73 




STA 


S7E jPQINTEURS 


138 




LDA 


INCR 




74 




RTS 


; DE DATA 


139 




BNE 


BRANCH 




75 








140 










76 


GENER LDA 


«*-0A |MET 10 


14 1 




LDA 


ADRNUM 




77 


GENER2 ST A 


INCR ; EN INCR. 


142 




STA 


*9B 




78 








143 




LDA 


ADRNUM+ 1 




79 




LDA 


8*04 


144 




STA 


*9C 




80 




STA 


SEPARATR 


145 










n t 

8 i 








146 


BRANCH LDA 


INSTRUC 




82 




LOCALISE LE 


DESCRI PTEUR DE LA 


147 




BPL 


TOKEN 


; CAR ACT . 


83 




VARIABLE ET 


PLACE LA LONGUEUR 


148 




INC 


SEPARATR 




84 


X 


EN LNGTEXT, 


L'ADRESSE EN ADRTEXT 


149 




CMP 


tt 131 


; DATA? 


85 








158 




BEG 


COPY 




86 




JSR 


r 1 Kbfc. 1 


tat 

15 1 










87 




STA 


FORPNT ;SAUVE 


152 




-TOKENIZE'' 


WE INSTRUCTION 


88 




STY 


FORPNT+1 »ADR DESCR 


153 




DEF OU UNE 


LI GNE D' INSTRUCTIONS 


89 




STA 


$AB ;POINTEURS 


154 










90 




STY 


*AC ;PR MOV INS 


155 


TOKEN LDA 


TXTPTR 


;SAUVE 


9 1 




LDY 


tt$02 


156 




PHA 




5 TXTPTR 


92 


DSCLOOP LDA 


(UARPNT) ,Y 


157 




LDA 


TXTPTR+ 1 




93 




STA 


LNGTEXT, Y 


158 




PHA 






94 




DEY 




159 




LDA 


*40 


;COPIE 


95 




BPL 


DSCLOOP 


160 




STA 


*71 


; LA CHAINE 


96 








16 1 




LDA 


#$02 


^EN MEM 


97 




LDA 


IN STRUG 


162 




STA 


*72 


; DANS LE 


98 




CMP 


Hi 32 "iNPUT? 


163 




JSR 


HOMINS 


; BUFFER 


99 




BNE 


ADRDRN 


164 










1 00 








165 




ELLE N'ACCEPTE PAS UN 


CODE SEUL 


10 1 




*FD6F EST L 


' INPUT DU MONITEUR 


166 




AU5SI ON AJOUTE UN CODE NUL , " i ' 


162 




*D5 39 CONVERT IT LA CHAINE EN 


167 




DANS LE BUFFER , I L SERA SUPPRIME 


103 




F0RI1AT APPLESOFT , BIT 7 H 6 


168 


X 


ENSUITE 






104 




*E3E9 & *DA9A COPIENT LA DQNNEE 


169 










165 




DU BUFFER D 


'ENTREE EN MEMO I RE, 


170 




LDX 


LNGTEXT 




106 




DESCRI PTEUR 


POINTE EN FORPNT. 


171 




LDA 


tt" : ' 


;MET y : " 


107 








172 




STA 


*200 ,X 




108 




JSR 


tF06F 


173 




LDA 


#0 


;MET LE 


109 




JSR 


*D539 


174 




STA 


$20 1 ,X 


5DELIMITR 


1 10 




LDA 


t*0 


175 




TAX 




;2ERO 


1 1 1 




LDY 




176 










1 12 




TAX 


; DELIMITR 


177 




*D56D EST LA ROUTINE 


DE 


1 1 3 




JSP 


$E3E9 


178 


)( 


CONVERSION 


DES MOTS-CLES 


1 14 




JMP 


*DA9A 


179 




EN CODES , Y 


PASSERA LA NOUUELLE 


1 15 








188 




LONGUEUR 






1 16 




TROUVE L'ADRESSE DE LA DERNI ERE 


181 










1 17 




LI GNE 




182 




STA 


*13 




1 18 








183 




JSR 


*D56D 




1 19 


ADRDRN LDY 


ttl 


184 




DEY 






120 




LDX 


103 5 DEBUT DE 


4 « * — 

185 




DEY 






121 




LDA 


104 ;PROGR. 


loo 




STY 


LNGTEXT 


; UPDATE 


1 22 




BNE 


ADRTRNS 


187 




LDA 


**fc 


; LNG & ADR 


123 


LOOP STX 


ADRNUM 


188 




STA 


ADRTEXT 


iPOUR 


1 24 




LDA 


*9C 


189 




LDA 


tt*0 1 


1 MOV INS 


125 




STA 


ADRNUM + 1 


198 




STA 


ADRTEXT+ 1 




1 26 




DEY 


|LIT ADR 


4 fl 4 

191 




PLA 




;RESTAURE 


127 




LDA 


C*9B> ,Y ; L I GNE 


192 




STA 


TXTPTR+ 1 


; TXTPTR 


1 28 




TAX 


jSUIUANTE 


193 




PLA 






1 29 




I NY 


;LA MET EN 


194 




STA 


TXTPTR 




1 30 




LDA 


<*9B> ,Y ;*9B-*9C 


195 










131 


ADRTRNS STX 


*9B 


196 


COPY LDA 


*9B 


;COPIE 


132 




STA 


*9C 


197 




CLC 




5 LA CHAINE 


133 




LDA 


<*9B> ,Y 


198 




ADC 


SEPARATR 


; DE LA VAR 
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199 


STA 


47 1 


:OU DU 


200 


LDA 


49C 


; BUFFER 


20 1 


ADC 


#0 


;A LA FIN 


202 


STA 


♦72 


;DU PROGR 


2fi3 


LDY 


LNGTEXT 




204 


LDA 


tt0 


;MET LE 


205 


STA 


(471) ,Y 


: DEL IMI TR 


266 


LDA 


LNGTEXT 




207 


LDX 


ADRTEXT 




268 


LDY 


ADRTEXT* 1 




209 


JSR 


MOUSTR 




219 


LDA 


ttl 


; INCREMI. 


21 1 


JSR 


4E5F3 


5*71 



212 

213 * INSERTION DE L'ADRESSE DE LIGNE 

214 X SUIVANTE DANS LES 2 PREMIERS 

215 * OCTETS DE LA LIGNE, AJUSTEMENT 

216 X DES POINTEURS DE FIN DE 



217 X 


PROGRAMME 




218 






2 19 


LDA 


471 


220 


STA 


C49B) ,Y 


221 


CLC 




222 


ADC 


tt2 


223 


STA 


175 


224 


I NY 




225 


LDA 


472 


226 


STA 


<*9B> ,Y 


227 


ADC 


w 


228 


STA 


176 



GENERATEUR 
Recapitulation 



*?4A8.95E2 



94A0- 


28 


58 


FF 


BA 


CA 


BD 


80 


8 1 


94A8- 


18 


69 


IB 


8D 


F6 


83 


E8 


BD 


94B8- 


88 


1 


69 


08 


8D 


F7 


83 


A9 


94B8- 


4C 


8D 


F5 


83 


68 


85 


IB 


C? 


94C8- 


AE 


F8 


1 1 


A8 


28 


Bl 


80 


C8 


94C8- 


Al 


D8 


2A 


85 


IB 


28 


Bl 


88 


94D0- 


~A9 


80 


F8 


23 


28 


Bl 


80 


28 


94D8- 


67 


DD 


28 


52 


E7 


A5 


58 


85 


94E8- 


7B 


A5 


51 


85 


7C 


28 


1A 


D6 


94E8- 


A5 


9B 


69 


83 


85 


7D 


A5 


9C 


94F8- 


69 


88 


85 


7E 


68 


A9 


8A 


85 


94F8- 


ID 


A9 


84 


85 


1C 


28 


E3 


DF 


9588- 


85 


85 


84 


86 


85 


AB 


84 


AC 


9588- 


A8 


82 


Bl 


83 


99 


18 


86 


88 


9518- 


18 


F8 


A5 


IB 


C9 


84 


D8 


11 


9518- 


28 


6F 


FD 


28 


39 


D5 


A9 


88 


9528- 


A8 


82 


AA 


28 


E9 


E3 


4C 


9A 



229 

230 X INSERTION DU NUfiERG DE LIGNE 

231 * DANS LES 2 OCTETS SUIUANTS 



232 








233 


I NY 






234 


LDA 


< ADRNUM) . Y 


235 


CLC 




MET LE 


236 


ADC 


INCR 


NUMERO 


237 


STA 


C49B> ,Y 


DE LIGNE 


238 


I NY 






239 


LDA 


C ADRNUM) ,Y 


240 


ADC 


H0 




241 


STA 


C49B) ,Y 




242 


LDA 


INSTRUC 


MET 


243 


BPL 


FIN 


* DATA ' OU 


244 


I NY 




" DEF'' 


245 


STA 


C49B) ,Y 




246 









247 * DEUX 2EROS LA OU DEURAIT SE 

248 X TROUPER LE DEBUT D * UNE AUTRE 

249 * LIGNE SI GN A LENT LA FIN DE 

250 X PROGRAMME 
251 

252 FIN LDA *0 

253 TAY 

254 STA C471),Y 

255 I NY 

256 STA C$713 ,Y 

257 RTS 



9528- 


DA 


A8 


6 1 


A6 


67 


A5 


68 


D8 


9538- 


8D 


86 


IE 


A5 


9C 


85 


IF 


88 


9538- 


Bl 


9B 


AA 


C8 


Bl 


9B 


86 


9B 


9548- 


85 


9C 


Bl 


9B 


D8 


EB 


A5 


ID 


9548- 


D8 


88 


A5 


IE 


85 


9B 


A5 


IF 


9550- 


85 


?C 


A5 


IB 


18 


86 


E6 


1C 


9558- 


C9 


83 


F8 


35 


A5 


B8 


48 


A5 


9568- 


B9 


48 


A9 


88 


85 


71 


A9 


02 


9568- 


85 


72 


28 


D4 


E5 


A6 


18 


A? 


9578- 


3A 


9D 


88 


02 


A9 


88 


9D 


8 1 


9578- 


82 


AA 


85 


13 


28 


6D 


D5 


88 


9588- 


88 


84 


18 


A9 


FC 


85 


19 


A9 


9588- 


8 1 


85 


1A 


68 


85 


B9 


68 


85 


9598- 


B8 


A5 


9B 


18 


65 


1C 


85 


71 


9598- 


A5 


9C 


69 


08 


85 


72 


A4 


18 


95A8- 


A9 


80 


91 


71 


A5 


18 


A6 


19 


95A8- 


A4 


1A 


28 


E2 


E5 


A9 


8 1 


28 


95B8- 


F3 


E5 


A5 


71 


91 


9B 


18 


69 


95B8- 


82 


85 


AF 


C8 


A5 


72 


91 


9B 


95C8- 


69 


88 


85 


B8 


C8 


Bl 


IE 


18 


95C8- 


65 


ID 


91 


9B 


C8 


Bl 


IE 


69 


95D8- 


88 


91 


9B 


A5 


IB 


18 


83 


C8 


95D8- 


91 


9B 


A? 


06 


A8 


91 


71 


C8 


95E8- 


91 


71 


68 
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Pom's n° 7 



Un programme de test universel 

Den/5' Sureau 



En ecrivant le programme TEST, 
j'avais en vue un programme de test 
general qui utiliserait des donnees 
interchangeables. et serait de prefe- 
rence trcs court, puisquc ce pro 
gramme serait la partie commune a 
tous les programmes dc test que Ton 
voudrait realiser, et serait done 
stocke en de multiples exemplaires. 
U permet de creer des tests dans tout 
domaine a voire convenance . il est 
en outre general au niveau du 
systeme, car il ne necessite aucune 
configuration specifique. grace au 
yenerateur de liynes qui « auto- 
ecrira » les donnees sous forme de 
DATA. 

Un examinateur patient 

TEST est un programme simple qui 
vous pose des questions sur un sujet 
donne, de facxm exhaustive ou alea- 
toire. et vous fonrnit la bonne 
reponse. Quand vous avez selec- 
tionne un chapitre et un mode 
d'interrogation, il presente la ques- 
tion tandis que la reponse se trouve 
sous un cache. Puis, lorsque vous 
avez donne votre reponse. ou sim- 
plement appuye sur RETURN, le 
cache disparait pour laisser apparai- 
tre la bonne reponse. 
Le CURSEUR INVERSE, pro- 
qramme en langage machine qui se 
trouv-e sous forme de lignes de 
DATA, permet de realiser le cache. 
Ainsi d'ailleurs que la presentation 
du programme, notamment le cadre 
du sommaire et la page de titre. On 
peut falre SnormSment de choses 
avec le CURSEUR INVERSE ; e'est 
pourquoi je l'ai ecrit sous forme relo- 
geable et compatible avec d'autres 
routines binalres. Comme il utilise 
Fampersand, il y aurait eu appro- 
priation de celui-ci par la deuxierne 
routine chargee sur la premiere si 
elle l'avait eyalemeiit utilise ! Ce pro- 
hleme a line solution, que je vous 
propose plus loin. 

Les donnees que vous avez fournies 
seront rajoutees automatiquement a 
la fin du programme de test, a partir 
de la ligne 20000, sur des lignes de 
DATA. 

Pour creer un test different, il suffit 



de supprimer les lignes 20010 et sui- 
vantes. et de placer DATA LND a la 
ligne 20000. Les titres des chapitres 
sont la seule chose que Ton ajoute 
« a la main » sur le programme. Les 
lignes 100 et suivantes sont reser- 
vees a cet effet et affectees aux varia 
bles B$(l). BS(2)... A la ligne 100. 
le nom du programme affecte a la 
variabSe F$ peut aussi etre change 
pour prendre le nom du test cree. 

Un programme 
cybernetique 

Plutol que de recourir au pro- 
gramme hierarchise r.Iassique aver 
un menu principal auquel on revient 
pour avoir acces a chaque section, 
on utilise une approche systemique 
permettant d'appeler le sommaire a 
partir de n'importe quel endroit. 
Lorsque !e numero du chapitre est 
demande. appuyer sur « S » fait 
apparaitre le sommaire ; la question 
est ensuite posee de nouveau et on 
indique alors le numero de I'option 
souhaitee. Les options « cherche » 
et « numero ligne » ne figurent pas 
au menu. On les appelle de 
n'importe quel point du programme, 
ainsi que chacune des autres fonc- 
tions. La description de chacune de 
ces procedures suit. 

PROCEDURE DE TEST. Presenta- 
tion en 3000. option test complet en 
6000, test aleatoire en 4000. La 
ligne 4097 stocke les nurneros de 
ligne de chaque question posee et 
teste si le numero genere aleatoire- 
ment figure dans la liste ; ainsi, lors 
du test aleatoire. une question n est 
jamais posee deux fois. 

AJOUTE commence en 5000. Les 
donnees sont stockees sur deux 
lignes de DATA, la premiere conte- 
nant le numero de chapitre et la 
question, la seconde la reponse. 

ARRET debute en ligne 8000. On 
teste a la ligne 8000 le drapeau DR 

positionne a 1 pour indiquer que des 
donnees ont ete entrees et sauvegar- 
der. le cas echeant, le programme. 

CHERCHE et NUMERO DE LIGNE 
se partagent le meme sous- 
programme a partir dc 2000, en 



fonction de A. la variable reservee 
aux nurneros d'options. 

Problemes d'interfagage 

Comment utiliser simultanement 
plusieurs routines ayant pour uec- 
teur Fampersand ? La solution que 
j'ai adoptee dans la routine 
INVERSE consiste a sauter a 
Tadresse indiquee en 6 7 si Tamper 
sand est suivi dun code autre que 
INVERSE, par cxemple ici RES- 
TORE, DATA, DEF. etc... On place 
done en 6-7 Tadresse du debut de la 
seconde routine, auqmentee du 
nombre des- octets (inutilises dans ce 
cas) qui precedent les tests de 
syntaxe dans celle-ci. soit. dans le 
cas du yenerateur, 29 octets pour la 
partie initialisation . 

11SR pourrait encore etre utilise pour 
une tioisieme routine, les positions 
$A-$R-$C n'etant pas utilisees 

Conclusion 

J'espere que ce programme vous 
aidera & controler vos connaissances 
dans un domaine. ou a les verifier 
avant un exameii, de fac,un facile et 
rapide II y a bien sur la neressite He 
rentier en differe les questions et 
reponses, mais cet exercice peut 
sWerer utile pour mieux compren- 
dre un texte. 

En fait, il appelJe (je crois) un pro- 
gramme complementaire, qui 
apprendrait au lieu de tester, et fonc- 
tionnerait selon le principe de 
1'enseignement programme.. . 
J'ignore si un tel programme existe. 
J'essaierai d'en eenre une version a 
l'occasion. 

Liste des variables reservees 

A = numero d'option 

A$() = libelle des fonctions 

B = hauteur sonure uu divers 

B$() = titres des chapitres 

C — duree du son ou divers 

DK - signale si des donnees ont ete 

ajoutees 

F$ = nom du programme 
N% = nombre de questions 
H% = indice du tableau enregis- 
trant les lignes lors du test aleatoire. 
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PRINT "BRUN GENERATEUR" 

HIMEM: 38647: REM SOUSTRAIRE 16384 PO 
UR 32K 

LCMEM: PEEK (115) •+ PEEK < 1 16> X 25 

6 - 10t80 

PLACE EN 6-7 L'ADRESSE DE LA PROC 
EDURE OU DOIT POINTER I 'AMPERSAND 
LORSGU'IL EST SUIVI D'UN CODE DI 
CELUI D' 1WERSE 
POKE 7,N / 256: POKE 6 
<7> X 256 
N:J = N 

GOSUB 13006: GOSUB 100: GOTO 9060 
REM ROUTINES FREGUENTES 
POKE - 16348,0: RETURN 
PRINT TAB< 10> "OPTION "A«<A> : RETUR 
N 

B = PEEK < - 16384) : RETURN 



REM 



FFERENT DE 

5 N = 38048 + 29: 

,N PEEK 

6 B = B :C = N: I = 
7 
9 
11 
12 

13 
14 
15 

16 

17 

18 

19 
26 

21 

22 
23 
24 
25 
26 
27 



NEXT 
PEEK 



: RETURN 
(124> X 256: 



> C* 

N + 1 : 



AND A$ < 

GOTO 18 



CALL - 868: GO 



GOSUB 1006: VTAB 2 



C*: IF C* = 



THEN POP 



IF B = 155 THEN POP 



GOSUB 1 
THEN GO 



28 
39 

46 
58 

52 
56 

57 
68 



88 

96 



91 

92 
94 

95 

96 

97 

99 

160 

110 

128 

121 

122 

123 



FOR J - 1 TO 508; 
N = PEEK < 123) ♦ 
RETURN 

POKE 773, B: POKE 774, C: CALL 778: RE 
TURN 

N = 8: & RESTORE 26606: PRINT "ATT EN 
DEZ ..." 
READ A*: IF A$ < 
FIN" THEN N » 
RETURN 

PRINT "CHAPITRE # a 

SUB 23 
IF C* = "S" THEN 

3: GOTO 20 
RETURN 
tc INPUT 
RETURN 
GOSUB 13: 
RETURN 

GOSUB 11: WAIT - 16384,128: 
3: IF B = 141 OR B = 160 
SUB 1 1 : RETURN 
POP : GOTO 18456 

POKE 32,4: POKE 33,39: POKE 34,5: PR 
INT : RETURN 

INVERSE 5,36,6,3: RETURN 
IWERSE 

K/TAB 5s HTAB 6: PRINT "QUESTION- 
V/TAB 11: HTAB 7: PRINT "REPONSE 
TE* 

NORMAL : RETURN 
A = PEEK (36) : PRINT A*<I) 
SE A ♦ 1,1, PEEK <37> , 1 
RETURN 
V/TAB Is HTAB 10 r GOTO 20 
VTAB 4r CALL - 958: GOSUB 50: VTAB 
19: PRINT "VQTRE REPONSE" :B = 68: 
C = 30: GOSUB 16 
GOSUB 38: VTAB 6; PRINT B$ : TEXT s G 

OSUB 46: & INVERSE 1,40,12,5 
VTAB 26i k INPUT E* 

fc INVERSE 1,48,12,5: VTAB 12: PRINT 

A* 
GOTO 27 
HOME 

PRINT "FIN DE DONNEES 1 : GOTO 27 
REM VOS VARIABLES 
F* = "TEST" 



EXAC 



tc IWv>ER 
PRINT : 



B*< 1) = ■ PROGRAM4ATI ON" 

B*<2> = "FICHIERS" 

B$<3) = "TABLES ET TABLEAUX" 

B*<4> = ■ STRUCTURE DE DONNEES" 

B*<5) = " PROGRAWIAT I ON STRUCIUREE" 



124 BSC 6) = "MODELES : FONCT I ONS COURANTES 

■ 

125 B*<7> = "MODELES :METHODOLOGI E" 

126 B*<8> = "ALGORITHM I QUE" 
136 RETURN 

996 REM SOMMAIRE 

1060 I = 

1040 TEXT : HOME 

1845 PRINT : PRINT A*(3> ,F% 

1047 VTAB 5 

1050 1 = 1+1 

1868 IF B$<I> = THEN 1110 

1070 IF PEEK (37) > 20 THEN PRINT "AP 

PUYEZ SUR UNE TOUCHE" ; : GOSUB 111 

0:1=1 - 1 : GOTO 1648 
1080 PRINT TAB< 4) MID* <R*,I X 5 - 4, 

5> ; 

1090 PRINT "Bid): PRINT 

1160 GOTO 1056 

1110 & IWERSE 1,9,1,3: 6c INVERSE IB, 
31,4,20 

1115 fcc IhfJERSE 11,29,5,18: & IWERSE 

2,7,5, 18 
1128 B = 88 sC = 48: GOSUB 14 
1 138 GOTO 27 

1996 REM RECHERCHE/NUM L1GNE 

2000 HOME ; GOSUB 12: VTAB 4; PRINT U QU 

ESTION:" j : GOSUB 23 
20 10 GOSUB 17= IF A* = "FIN" THEN GOSU 

B 97: GOTO 2060 
20 15 IF A = 7 THEN PRINT "LIGNE: " : 130 

SUB 15: PRINT N: GOTO 27 
2020 READ A*; GOSUB 90: GOTO 2060 
2990 REM QUESTION 
3060 VTAB 21 
30 18 PRINT "I. SUR TOUT" 
3020 PRINT "2. AU HA SARD" 

3038 GET A*:N - VAL <A*> 

3840 GOSUB 20: TEXT : HOME 

3045 GOSUB 12: HTAB 10: PRINT "CHAPITRE 

3047 U JWJERSE 9,22, 1,3 

3060 VTAB 1: HTAB Is PRINT ■ ESC POUR" s 

PRINT " QUITTER" 
3180 ON N GOTO 6600,4080 
3190 RETURN 
3990 REM TEST ALEATOIRE 
4060 IF NOT N* THEN RETURN 
40 10 FCfi = 
4040 GOSUB 11 

4050 N = INT C RND < i> X NX. X 2> ♦ 1 
4860 ftc RESTORE N X 18 + 19990 
4070 READ A$: IF A$ = "FIN" THEN 4050 
4080 GOSUB 25 

4090 IF A* < > C* THEN 4670 
4092 GOSUB 15 

4895 FOR 1-6 TO R5< : IF N = RX< I ) THEN 
4850 

4897 NEXT IsRX<l) = N : RX = (I < 51> X I 
4168 READ B*: READ A* 
4120 GOSUB 90: GOTO 4050 
4990 REM AJOUTE 

5868 IF PEEK <175) + PEEK < 176) X 256 
> ( PEEK < 105> + PEEK ( !06> ¥ 2 

56 - 239) THEN PRINT "MEMO I RE SA 

TUREE" : GOTO 10 
5858 HOME ! GOSUB 12: PRINT " "N^" QUES 

TIONS" 
5855 GOSUB 50 
5060 VTAB 12 

5064 lc INPUT B*! IF W = " THEN RETU 
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5865 60SUB 38 

5078 VTAB 6 1 tc INPUT A* 

5888 TEXT : GOSUB 88 

5898 C* = C* + ♦ CHR* <34> + A* + 

CHR* <34> 
518 8 POP DATA C* 

5182 R* = CHR* (34) 4 B* + CHR* (34) 

510 5 6c DATA B* 

5187 DR = 1 :A* = ■ FIN - 

5118 k DATA AS 

5218 NX - NX + 1 

5490 GOTO 5058 

5990 REM TEST EXWOJSTIF 

6800 fcc RESTORE 28009 

6018 READ A*: IF A* = "FIN" THEN 96 

6815 GOSUB 25 

6820 IF A* < > C* THEN 68 18 
6830 READ B* : READ A* 
6048 GOSUB 98; GOTO 6810 
6990 INSTR. 
7000 HOME 

7010 GOSUB 12: VTAB 5 
7028 POKE 32,8: PRINT 

7030 PRINT "R - RECHERCHE LINE QUESTION" 
! PRINT 

7840 PRINT "S - QUAND LE CHWPITRE EST ■ 
, " DEMANDE, AFFI CHE LE SOMMAIRE": P 
RINT 

7045 PRINT ■ L - NUMERO DE LIGNE D'UNE', 

"QUESTION" s PRINT 
7047 PRINT "ESC - ARRETE LA PROCEDURE" , 

"EN COURS" : PRINT 
7058 PRINT " LE NOM DU PROGRAMME ET LES 

■ f "CHAPITRES SONT MIS AUX LIGNES" 

, ■ 100 ET SUIVANTES" 
7490 TEXT : GOTO 27 
8008 IF NOT DR THEN 8208 

8005 PRINT "NOM DU PROGRAhWEi "jF*;! PR 
INT ' OK?" 5 : GET A*: IF A* = "N" 
THEN HTAB 19s CALL - 868s INPUT 
F* 

8010 D* = CHR* (4) 
8030 PRINT D*"SAUE B F* 

8280 TEXT : HOME : PRINT "AU REVOIR!": 
END 

9000 M* = "TASI QRL " i REM IN3TIALES 

9018 R* = " I II III IV V V 

I VII VIII IX X XI XII X 
III XIV XV XVI XVIIXVIII XIX 
XX XXI XXI IXXIII XXIV XXV XX 
VI XXV I XV 1 1 1 XXIX XXX" 

9820 DIM RX<58) 

9850 GOSUB 17 

9860 MX - N / 3 

9070 HOME 

9998 REM MENU 



10000 TEXT : HOME 

18005 PRINT » , i )F)| j > " PAR D. SUREAU" 

100 10 VTAB 18 

10020 A*< 1) - "TEST" 

10030 A*(2) = "AJOUTE" 

18040 A*<3> = "SOMMAIRE" 

10858 A*<4) = " INSTRUCTIONS" 

10060 A*(5) = "QUITTE %c SALWEGARDE" 

10 070 A*<6> = "RECHERCHE" 

18080 A*(7) = -LIGNE" 

10 100 FOR I « 1 TO 5s HTAB 22 - I X 2: 

GOSUB 66: NEXT 
10200 GOSUB 12080 
18458 GET A* 

10500 FOR A « 1 TO LEN (N*> 

10518 IF MID* (N*,A,1> < > A* THEN N 

EXT : GOTO 18600 
18528 IF A < > 1 THEN TEXT : HOME 
10530 ON A GOSUB 3090,5008,1880,7000,80 

80 ,2000 ,2000 
10600 GOTO 10600 
11990 REM LOGO 
12000 GOSUB 11 
12005 FOR I = 1 TO 20 
12010 J = INT (I / 2> 

12020 k IWERSE 21 - 1,1 X 2,11 - J, J 

X 2 
12038 NEXT 

12648 GOSUB 14: GOSUB 14 

12065 GOSUB 13 

12066 IF B > 128 THEN RETURN 
12075 B « 36 :C - 10: GOSUB 16 
12880 GOTO 12648 

13880 REM SON 1WERSE 

13030 FOR I = 778 TO 963! READ B: POKE 
I ,B: NEXT 

13040 CALL 799: REM INIT. INVERSE 

13050 DATA 173,48,192,1365208,5,206 

13060 DATA 6,3,240,9,262,208,245,174 

13070 DATA 5,3,76,16,3,96 

13080 DATA 32,88,255, 186,202, 187,0,1,2 
4, 105,27, 141,246,3,232, 189,0, 1, 10 
5,0, 141 ,247,3, 169,76, 141,245,3,96 
,201 , 158,248,3, 168,6,8 § 168,8, 152, 
72,32,245,230 , 104, 168,202, 158,24, 
208, 192,4, 144,241, 163,26, 133,37,5 
6, 10 1 ,27, 133 

13098 DATA 27, 165,24,56, 101,25, 133,25, 
198,37,230 ,37,32,34,252, 165,37,19 
7,27, 144, 1 ,96, 164,24, 177,40,48,4, 
9, 128,208,2,41,63, 145,40,200,196, 
25, 144,239, 176,223,255,0 

13108 RETURN 

19000 REM XX T E S T XX 

COPYRIGHT (C) 1982 
DENIS SUREAU 
28808 DATA FIN 



Message aux createurs de logiciel 

Nous allons bientot commercialiser des programmes en plus de la revue Pom's, la remuneration des auteurs 
s'effectuant selon le principe des droits d auteur. 

Bien entendu, les programmes destines a ce mode de distribution doivent etre des produits finis, autant par la 
quality des programmes que par celle de la documentation et par lenvironnement vtsuel et sonore. 

Nous sommes prets a analyser vos propositions et a vous aider a transformer des id6es en produits loyiciels. 
Envoyez nous vos contributions ; nous vous aiderons a diff user cgs programmes. 
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Data life 

B y\ferbatim 



DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 




- Certification unitaire 100% sans erreur. 

- Duree de vie : 30 millions de revolutions 
(standard de I'lndustrie 3,5 millions de revolutions). 

- Anneau de renforcement en standard sur le 5 1/4 ". 

- 5 1/4 " en 48 et 96 TPI, simple et double face. 



Importateur exclusif ; BFI ELECTRONIQUE - 9 RUE YVART - 

75015 PARIS. 
Tel. 533-01-37. 



Visicalc et traitement de texte 

Herve Thiriez 



<le tiens a remerrier iri Judith Ker- 
tesz, une de nos fideles lectrices, qui 
nous a donne I'idee de cet article en 
nous montrant comment mettre des 
minuscules dans un tableau Visicalc. 

Visicalc avec 
des minuscules 

Ceux d 'entre nous qui travaillent 
avec un Apple II Pius sans lo ROM 
minuscules regrettent parfois de ne 
pouvoir les utiliser dans Visicalc. En 
fait, cela peut se faire sans difficulty . 
quoique I'effort nc soil pas justifie 
pour un tableau d*usage peu fre- 
quent. Par contre, un tableau a 
usage multiples, servant a [elabora- 
tion de factures par exemple, est 
plus satisfaisant s'il peui exploiter les 
minuscules de rirnprimante. 

Le principe est relativement simple 
Le ficliier Visicalc est un (ichiei 
TEXT que Ton peut modifier a I'aide 
d'un programme de traitement de 
texte La procedure est par conse* 
quent la suivante ; 

1) Creer le tableau souhaite avec 
Visicalc 

2) Souvegarder le fichier correspon 

dant avec [/SSFACTURE] (ou tout 
autre nom que « FACTURE ») 
Cornme dans le hvre « Visicalc sur 
Apple », nous mettons entre cro- 
chets les textes a entrer au clavier 
pour Visicalc. 

3) Lire en traitement de texte le 
fichier FACTURE 

4) Remplacer en mode edition les 
majuscules par les minuscules sou- 

5) Sauvegarde le fichier sous un 
nom qui nous rappelle la presence 
des minuscules, par exemple 
FACT. MIN 



Quand on souhaite imprimer une 
facture. il suffit de faire 
[/SLFACT MIN] en Visicalc, d'y 
ajouter les infoimations piopies a la 
facture consideree. puis de lancer 
son impression. Quand Visicalc lit 
des minuscules, il fait apparaltre a 
lecran les majuscules correspondan 
tes. Cest uniquement a 1'impression 
(ou avec les lettres accentuees) que 
Ton voit qu'il y a effectivement des 
minuscules aux endroits necessaires. 

Les utilisateurs d'Apple He pourront 
aussi ronstater que le programme 
Visicalc fait appaiaTtre des majuscu- 
les a lecran, hien que les minuscules 
existent avec ce materiel. 

Bien entendu. si Ton veut eviter de 
perdre du temps en pratiquant ainsi 
le va-et-vient entre Visicalc et le pro- 
gramme de traitement de texte, il 
faut se contenter de majuscules pour 
les informations relatives a chaque 
facture specifique. 

Cette facon de travailler suppose 
que voire proyrdinme de traitement 
de texte sache lire des fichiers texte. 
II n'y aura pas de probleme si vous 
travaillez avec Applewriter II, Magic 
Window ou tout autre systeme utili- 
sant des fichiers TEXT. 

Si par contre vous possedez le cele- 
bre Applewriter 1. vous pouvez tout 
de meme vous en tirer en utilisant les 
programmes TEXT to Applewriter I 
et Appekvriter I to TEXT presentes 
ci-dessous. 

Nous fournissons en reduction un 
exemple de facluie lealisee pour 
Pom's I.e fichier FACT MIN se 
trOuve Sur la disquette d'accompa- 
gnement. Le lecteur pourra consta- 
ter sans effort que la solution propo- 



ses dans cet article fonctionne sans 
moindre problerne. 

Passoris maintenant aux program- 
mes de conversion entre un fichier 
TEXT et le programme Applewri- 
ter I. 

TEXT to Applewriter I 

Afin de convertir un fichier TEXT en 
format Applewriter I. il suffit d'exe- 
cuter le programme suivant. Outre 
son interet pour l'utilisation liee a 
Visicalc, ce programme permet 
d'exploiter les posstbilites d'Applew- 
riter avec tout fichier TEXT, en parti- 
culier pour Tedition de fichiers 
EXEC. 

Une autre application de ce pro- 
gramme de converssion consiste. 
apres avoir effectue avec I/PF-E36 
RETURN FACTURF] la sauvegarde 
du tableau a imprimer (et non plus 
de la description du tableau), a le 
convertir en format Applewriter. Le 
tableau Visicalc peut alors etre inte- 
gre avec CTRL-I dans un rapport 
edit§ en Applewriter. 

Notre but se lirnite eci a vous fournir 
un bon outil de travail. Nous ne 
commenterons done pas le mode de 

fonctionncment de cc programme. 
Nous laissons le lecteur exercer sa 
sagacite dans cette analyse. 

Applewriter I to TEXT 

Ce programme, a l'oppose, trans 
forme un fichier Applewriter quel- 
conque en fichier TEXT. On peut 
ainsi creer un fichier EXEC en traite- 
ment de texte. et le convertir grace a 
ce programme en fichier TEXT. 
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pom's 









Editions MEM 


STE. MICROFANA 8. CIE 


49 t r ue L3M3r tine 






78000 Versailles 


13> RUE DE 


L '.APPLE! 4 




75016 PARIS 


CEDFZX 89 


Feature No* 1234 




D^tt 3 


10/0 1/83 




R£f fences 


Quantity Prix Un« 


fntal H T 

1 O Ill 


Recueil de Pom's 


1 112,15 


112,15 


Pom's. nuM^ros 7 & 10 


1 112,15 






Total H.T. 


224.30 




TVA A 7% 


15,70 




TOTAL TTC 


24 . 


Di-bque Ltes recueil 


1 126.48 


126.48 


Diskette* NOS 7-10 


1 147,55 


147,55 


Disquette Visicalc 


1 63.24 


63,24 


Boites 10 Verhstin 


2 200.00 


400,00 


T-Shirts 


4 42,16 


168.63 




Total H,T. 


905,90 




TVA 18,6 % 


168,50 




Total TTC 


1074.40 






1314.40 



1 



J 



En voire aifiahle r^gler-ient £ reception de facture 



Editions MEV Bureaux ; 59, IV de Glatigny 78000 - Versailles @ (3) 918-13-07 

SARL au capital dt 20 000 F — RCS Veiiaillw D 322 815 317 — SIRET 322 B15 317 00019 



TEXT to Applewriter I 



Applewriter I to TEXT 
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REM *** TEXT TO APPLEWRITER XXX 
TEXT : HOME :D* = CHR* <4> : ONERR 
GOTO 100 

DATA 169, 1 , 133,38, 169,25, 133,31 ,32, 

12,253, 140 
DATA 9,?, 128,29 1 , 141,248, 12,20 1, 168 

,144,241,291 
DATA 224, 144 , 2 , 233 , 97 , 185,64, 145,3 

,238 ,38 ,20 8 
DATA 227,230,31,288,223: FOR I = 7 

68 TO 808: READ J: POKE I , J: NEXT 



HTAB 5: IWERSE : PRINT "COMJERSION 
TEXT => APPLEWRITER": NORMAL : V 
TAB 6: INPUT "FICHIER A TRANSFERE 
R : * ;N*s PRINT 
88 A» = "DU DRIVE s GOSUB 138 :D1 = D: 

PRINT :A* = "AU DRIUE : " : GOSUB 
138iD2 = D 

96 PRINT D*"OPEN a N*" ,D"D1: PRINT WREA 

D"N*: CALL 768 
188 PRINT D4" CLOSE" s POKE 216,8; POKE 6 

40 131 

1 18 D = PEEK <38> * PEEK (31) X 256: P 
OKE D,96: PRINT : PRINT D*" BSAVET 
EXT.'N*" ,A»1980,L"D - 6399",D"D2 

129 PRINT : PRINT "TRANSFORMATI ON TERMI 
NEE . . . ■ : END 

138 PRINT A*;: GET A*: IF A* C "1" OR A 
* > "2" THEN 138 

148 D = VAL (A*> : PRINT D: RETURN 



18 

20 

30 
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50 



68 
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88 A = 
98 IF 
109 

i ie 

120 

i3a 

140 
158 



REM XXX APPLEWRITER TO TEXT XXX 
TEXT : HOME :D* = CHR* <4) : ONERR 
GOTO 148 

PRINT " IWERSE : PRINT "CONVE 

RSION APPLEWRITER =} TEXT" • NORM 
AL 

VTAB 4: INPUT "FICHIER APPLEWRITER i 
TEXT--;N*s PRINT : PRINT "METTRE 
LA DISQUETTE DANS LE DRIVE 1" 
VTAB 8: PRINT "APPUYER SUR UNE TOUCH 
E POUR CONT INUER* : GET A*: PRINT 
: PRINT W BLOADTEXT . "N$ : VTAB 8: 
CALL - 868: PRINT "FICHIER "N*" 
CHARGE ..." 
VTAB 10: INPUT 'A TRANSFERER SUR QUE 
L DRIUE ?";D: IF D < 1 OR D > 2 
THEN 68 

PRINT : PRINT ■ ATTENDEE LE MESSAGE D 
E BONNE CONCLUSION,LE PROCESSUS E 
ST ASSEZ LONG ..." : ADR = 640 1 : PR 
INT WOPEN'N*" ,D"D: PRINT WWRI 
TE"N* 

PEEK (ADR) :ADR = ADR + 1 
A > 223 THEN A = A - 64 
IF A > 191 THEN A =» A * 32 

< 32 THEN A = A + 192 

< 64 THEN A = A + 128 
IF A = 96 THEN 158 
PRINT CHR* <A> ; : GOTO 88 

PRINT D»'CLOSE"; PRINT ; PR 
TRANSFORMATION TERMINEE ..." 



IF A 
IF A 



PRINT 
INT 



Micromos 



Les pionniers des annees 80 



• Disques durs a cartouche amovibie sur 
APPLE II et assimiles... 

• Mono ou multipostes 

• Sous DOS 3.3 





• De 10 + 10 a 10 + 130 Mo en ligne 
sur un seul slot APPLE U 



• Tous nos produits sont 

compatibles avec I' APPLE lit 



Laboratoire : 17, Plateau de la Raviniere - 95520 OSNY - Tel. (3) 032-16-71 - (3) 032-37-78 
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Hello corrige 

Thierry Le Tallec et Jacques Tran-Van 



Programme HELLO du Pom's n° 6 (page 34) 
Recapitulation corrigee 



X88D.CFD 

8880- 28 2F 
§818- 26 58 
8818- FE AO 
8828- 28 20 
8828- A8 
8838- 80 81 
1838- 84 8C 
9848- AS 9A 
8848- 82 84 
8858- 62 88 
8858- 8F 8A 
8868- Dfi 83 
9868- 88 08 
8878- E8 AC 
8878- 4C 08 
i- 28 M 
8- 83 89 
8898- A5FB 
8898- C9 83 
88A8- Ffl 52 
88A8- CA 08 
8888- 81 80 
8888- D7 80 
88C8- AF 85 
68C&- 69 98 
8- 2F 28 
8- 6E 94 
88E8- D* 85 
88E8- W F9 
88F8- F2 28 
88F8- D8 89 
8986- 84 E6 
89*8- A5 68 
8918- 89 C9 
8918- 21 28 
8928- 8A 8A 
8928- 44 90 
8938- 82 8A 
8938- 6 1 9* 
8946- FF 85 
8948- 83 44 
8958- A2 87 
8958- FA 80 
8948- 89 A5 
8948- 2C 49 
8978- C8 81 
8978- 88 B8 
69#- EF 28 
8988- ED F0 
8998- 2F FB 
8998- 85 87 
89A8- 99 IT 



FB 

FC 28 89 
D5 83 C9 
FF 4C 08 
03 80 68 
90 A2 88 
90 A4 9A 
A9 98 29 
22 28 58 
A6 8C 89 
98 FB 88 
EE 68 98 
£9 20 83 

81 E6 2C 
84 C8 28 
89 C8 88 
[6 82 A6 
18 49 23 
F8 EE A2 
00 08 6B 
F3 A4 FB 
E0B7 88 
EC 87 BO 
E8 E8 19 
28 19 88 
71 9B28 
18 A2 38 
11 Bl BE 
E6 6F E4 
58 FC A9 
A5 84 18 

82 A9 88 
C9 28 96 
14 08 8B 
58FC A4 

m 81 81 

88 96 E6 
8A 8A 8A 
C8 98 90 

83 Bl 61 
83 29 7F 
IAMBS 
A5 8B 25 
68 C? IB 
94 29 8? 
81 C? A8 
F5 » ED 
8E FO 4C 
A9 AD 4C 
A8 8F 84 
28 5B FB 
63 88 08 



FE 28 93 
90 F8 84 

83 28 51 

90 A9 9C 

84 19 B0 
E8 08 F7 
8C 98 A2 
FC CA 28 

37 IF F8 
EE 47 98 
28 08 Fl 
C8 AO 88 
81 C8 C9 
F6 88 C9 
08 85 4C 
EB 84 FB 
A8 85 FB 
8B Bl 81 
06 E9 C8 
88 88 Bl 
81 81 38 
E4 66 90 
D8F5 28 
AS FC A9 
3E 9B 84 

84 8F A9 

91 16 C8 
11 CA 08 
18 85 82 
69 23 96 
A8 84 86 
83 4C 8F 

85 28 85 
64 A5 86 

38 03 F8 
66 C8 A5 
tl 61 9D 
63 96 A9 
38 84 44 
90 82 96 
83 CA m 
83 28 67 

88 82 69 

89 A2 6F 
88 84 C9 
FD CA 08 
FA 88 28 
EO FD 28 
24 A9 88 
B9 AC 8B 
F7 98 AE 



69A8- F4 87 

8988- A9 15 

8988- 48 96 

89C8- BC 8fi 

89C8- 28 2F 

8908- 9C FC 

8908- BF D8 

89E8- AS 80 

69E8- 88 06 

89F6- 8C FD 

69F8- 98 C9 
I-FF80 

3- 84 C? 

8A18- 90 W 

6A18- 82 80 

8A28- 80 88 

8A28- 08 FF 

8A38- A9 3F 

6A38- 8C D6 

8A48- OD 87 

8A48- 85 84 

6A58- F6 58 

6A58- B8 95 

6A46- E9 95 

6A68- AA BC 

8A78- 29 8F 

8A78- 4A 

6A88- 94 35 

8A88- A8 IE 

6A98- 74 AA 

8A98- 26 28 
%m- 91 91 
8AA8- 60 68 
8AB8- 94 86 
8AB8- IE 16 
6AC8- 84 18 
8AC8- 18 84 
•A06- 80 C3 
8AD8- A2 85 
8AE8- A5 8C 
8AE8- 84 F8 
6AF8- 80 C9 
8AF8- B2 A5 
8B8B- 88 28 
8B88- 82 A? 
6816- 28 6C 
8B18- 69 26 
8828- 84 A2 
8828- 9B 28 
8B38- 88 98 
8B38- 28 FD 
8848- 88 A8 
8B48- 98 C8 
8B58- 80 97 



26 24 FO 26 

85 24 AE 47 
28 24 ED A8 
99 18 84 88 
FB A9 89 85 
A2 4A AD 89 
82 A2 68 8E 
89 CB BB 99 
F7 44 84 44 
C9 A8 06 83 
M 08 BC Av 
89 9B K 8B 
DO 06 %6 A9 
EE C9 95 06 
EA B7 80 48 
C9 88 W 84 
C9 9B 08 89 
80 00 87 08 
89 85 *3 29 
06 AB C9 84 
46 83 18 EF 
C9 B6 98 99 
C9 CI 98 82 
C5 88 88 89 

86 96 80 81 
26 FD 8B 48 
69 18 85 82 
8C BO 83 94 
Bl 61 99 DC 
88 D6 F5 24 

B7 6A B3 81 
A2 82 28 42 
28 58 FCA2 
28 8C FD 38 
4A A2 64 D8 
ID 28 87 8A 
A2 6A 08 38 
B5 A9 M 80 
26 94 8B 4C 
08 83 4C C4 
38 98 84 A2 
82 F8 31 A9 
F8 » A2 81 
DO FB 28 86 
28 84 FE 28 
FO 28 FB 91 
E3 63 26 65 
88 08 0? 68 
19 8B AD 81 
A8 F8 17 AD 
8B EE FJ B7 
88 B9 8C 98 
08 F7 AC 6C 
28 FO 8B A6 



9C FC 
96 AO 
8F B9 
16 F7 
24 28 
9B C9 
DO 67 
CF 87 
83 28 
4C 9A 
69 A8 

98 08 
BF A6 
88 A9 
AA 4C 
A9 61 
85 87 
B4 C9 
7F 60 
D6 64 
C9 AF 
C9 06 
E9 2C 
8A 8A 

96 48 
4A 4A 
BO 82 

85 81 
87 99 

83 18 
49 88 
8B 4C 

84 28 
F8 24 
3F 24 
Bl 61 
A9 75 
C4 B5 
80 68 
A5 C9 
8D D6 
26 28 
E8 64 
FE 26 
9C FC 
4C 8F 
B? 98 
28 69 

97 80 
82 97 
28 19 

99 68 
97 AD 

86 A9 



8- 96 
fl- A6 
8B68- 88 
8B78- A9 
8B78- 8F 
8B8S- 06 
6B88- F5 
8B98- 82 
8B96- 86 
8M6- C8 
8BA8- AA 
*- 8F 
8- D6 
8BC8- 04 
88CS- C2 
8BD6- 65 
6B06- BA 
8BE8- C2 
8BE8- 02 
8BF8- C4 
88F8- C5 
6C86- 80 
8C88- 56 
»C 18- 84 
8C18- 65 
8C26-9B 
8C28- A4 
8C38- AD 
8C38- 90 
8C48- AF 
8C48- 85 
8C56- 87 
8C58- 08 
8C68- 05 
8C48- 90 
8C76- 90 
8C78- EO 
8C88- 81 
8CS8- 82 
8C96- 98 
8C98- 90 
0CA6- Fl 
•CAS- 80 
8CB8- B7 
•C88- C8 
8CC8- N 
8CC8- 86 
8C08- F8 
8CD8- A7 
8CE8- 28 
8CE8- A9 
8CF8- 49 
8CF8- 28 



28 71 98 
9A 8E F4 
8C EB B7 
16 85 82 
A8 II 26 
EE Fl 87 
AO ED C8 
85 IE 48 
80 CI B5 
65 4C 06 
D3 02 00 
60 27 13 
CF CC AE 
C5 05 02 
02 C5 03 
28 63 88 
A8 A8 A6 
D4 CE C9 
C7 C5 CO 
C5 A6 CC 
C7 C5D2 
ED B7 48 
4A B6 36 
E9 83 A8 
E9 88 26 
26 78 9B 

65 28 94 

83 96 26 
6C 64 86 

85 69 AO 

86 85 4A 
28 71 9B 
80 86 88 
4C 64 05 
28 9E A5 
28 88 F8 

66 96 85 
94 85 CB 
A8 A5 C8 
26 3E 98 
4C EC EF 
26 80 EC 
ED B7 94 
28 B5 B7 
D8 62 E6 
DC 4C a 

84 81 A9 
B7 80 Fl 

85 48 A9 
1A FC 28 
90 8C F2 
A5 80 F4 
78 98 4C 



26 19 8B 4C 
B7 86 IE A8 
84 89 84 81 
26 7 1 98 A9 
FD 6B 28 19 
CE EO B7 18 
AO EE C8 18 
8E BB B5 A9 
AD 68 AA 80 
83 AE BE DO 
M 20 20 18 
20 20 A8 A8 
A6 03 C5C3 
03 A8 CC C9 
16 8F 14 32 
6F 69 18 A8 
C3 C9 03 CI 
A8 C3 C8 CI 
C5 CE 04 A8 
A7 C9 CE 04 
A9 8C EC B7 
A5 6C 4A BB 
AO 68 96 85 
AO 89 94 85 
71 9B 26 3C 
18 13 M 64 
FD AE 62 94 
41 F9 4C BF 
40 68 96 85 
61 96 69 68 
A9 FF A8 A9 
28 3E 98 65 
28 78 98 38 
A9 66 80 E7 
A9 4C 80 E7 
28 04 A7 38 
GA A? 96 EO 
38 A5 CA E9 
E9 88 26 71 
26 7fi 9B 38 
A6 8C 81 61 
B7 Cfi Bl 61 
86 A6 E8 A9 
68 42 A4 16 

82 EE Fl B7 
A7 88 88 A6 
97 85 82 8C 
B7 66 28 04 
16 26 5A FC 
8E FD A8 BF 

83 80 F3 63 
63 24 87 48 
BF 90 
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Gestion de masques en BASIC 

Gerard Michel 



Pour commencer. rendons a Cesar 
ce qui lui apportient ! Les routines 
presentees ci-apres s'inspirent 
largernent des principes dcveloppes 
pour la gestion des masques 
d'entree/sortie de la carte 
MEM /DOS 6 502. Elles ne pr&en- 
dent pas toutefois. c'est evident, 
atteindre le meme niveau de perfor- 
mance, tant en ce qui conceme la 
facility d'utillsation (gestion conjointe 
des masques et des variables) . que le 
stockage sur disque (recodage des 
informations) ou la rapidite d'acces 
(stockage des masques en memoire 
RAM apres leur ouverture...). 

Notre ambition se borne a vous offrir 
un utilitaire qui. combine avec la 
routine oVINPUT pubhee dans le 
numero 6 dc Pom's, vous permette 
de realiser une gestion d'ecran plus 
souple et plus complete que par les 
seules instructions du BASIC. 

Routine de gestion de 
masques 

Le principe consists a « dessiner » le 
masque dsrectement sur lecran, puis 
a sauvcr la page TEXT correspon- 
dante pour un charqement ulterieur 
a partir de vos programmes. Le pro- 
gramme Applesoft GESMASK vous 
permet, dans les traitements CREA- 
TION et MODIFICATION, de reali- 
ser ces « mise en pages » Quelques 
touches de function out eie prevuea 
pour faciliter ce travail : 

• Replacement vers la droite OU la 



gauche sans affecter le contenu de 
l'ecran par les touches « — - » et 

« » . 

• Deplacement vers le bas par 
RETURN. 

• Deplacement vers le haut par 
CTRL-R. 

• Passage en mode INVERSE par 
CTRL-L 

• Passage en mode NORMAL par 
CTRL-R 

• Decalage de tout l ecran vers la 
droite a partir d'un point donne par 
CTRL-D. 

• Decalage de tout l'ecran vers la 
gauche a partir d'un point donne par 
CTRL-G. 

• Repetition verticale d'un caractere 
par CTRL V (il faut se placer sur le 
caractere concerne, puis faire 
CTRL V). 

• La touche REPT conserve sa fonc- 
tion habituelle. 

• La touche ESC permet de valider 
l'ecran et de le sauver sur disquette 
(ou de revenir au menu en cas de 
consultation) . 

Vous constaterez rapidement qu'il 
est plus agreable de realiser par re 
moyen des ecrans complexes ou 
« esthetiques » que d'utiliser une 
suite d'lnstructions BASIC telles que 
VTAB, HTAB et autres PRINT... 

De plus, si vous perdez de la place 
sur disquette (chaque ecran occupe 
6 secteurs), vous en economiserez 
en memoire centrale, I'encombre- 
ment de vos programmes etant 
reduit. 



Hard-Copy TEXT 

Cette routine « standard » vous per- 
mettra ; 

• d'imprimer vos masques afin de 
reperer I'endroit ou seront position- 
necs les variables (parametres H 
et V qu'il faut fournir a la routine 
d'INPUT). 

• d'imprimer des ecrans a partir de 
vos programmes apres consultation 
(voir le programme Applesoft 
MASK. DEMO) 

Impression parametree 

Pour editer sur imprimante des don- 
n£es sous une forme quelque peu 
presentable, il faut bien sou vent 
commencei par definir un tableau a 
la main. II faut ensuite jongler avec 
les SPC. LEFT$... a l'interieur du 
programme BASIC pour retrouver 
le tableau voulu sur Timprimante. 

La solution proposes ici consiste, 
une fois encore, a dessiner le tableau 
sur l'ecran pour le rcproduire ensuite 
sur papier. Les masques correspon- 
dants peuvent etre crees par GES- 
MASK. 

Chaque liyne d'impresbiuii est repe- 
ree par deux caractd.res de « con- 
tr61e » idenliujuKS eulie lesquels elle 
doit se tronv«r Ges caracteres peu- 
vent etre n'importe quelle lettre de A 
a Z atfichee en INVERSE sur Tecran 
(ceci impose de ne pas mettre de let 
tres en INVERSE dans les lignes a 
imprimer). Deux lignes differentes 
doivent en outre comporter des 




OLIVETTI PRAXIS 
AVEC INTERFACE APPLE 

5400 F h.t. 

Limprimante qui est aussi une machine d 
ecrire. 

Marguerites interchangeables. 



TOTALE FORMATION 

1W, avenue ChaHcs dc Gaulic 92200 Ncuilly T& 
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caracteres de controle differents. Le 
programme MASK. DEMO fournit 
une illustration de ce type de traite- 
ment (si votre interface/imprimante 
realise une Impression simultanee d 
P&ran, rajoute2 PRINT CHR$ (9) 



"80 N" apres chaque PR#1 de ce 
programme) . 

Mode d'emploi 

Le lecteur est prie" de se reporter au 
mode d'emploi decrit dans la routine 



d'INPUT presentee dans le 
numcro 6 de Pom's. II est difficile de 
fa rep£ter ici, d'autant que le mode 
d'emploi peut aussi etre decouvert 
par tatonnements ou, dans le pire 
des cas. par analyse du programme ! 



Programme GESMASK 

10 WIMEM: 37346 

20 CHR* <4>:D1* - CHR* < 13> * D*: 

PRINT WBLOAD INPUT. OBJ" I PRINT 
D** BLOAD MASKIN.OBJ": PRINT D*"B 
LOAD HCT.OBJ" 

30 ONERR GOTO 9008 

40 GOTO 360 

70 VTAB 22: HTAB 1: INVERSE : PRINT ZM* 

;: NORMAL : INPUT B ? ":Z*: VTAB 
22: CALL - 868: Z* = LEFT* < 2* , 1 
> : IF 2* = "0" OR 2* = "N* THEN 
RETURN 

71 GOTO 70 
80 REM 

90 REM ROUTINE D' INPUT 
100 REM 

149 VTAB V: HTAB H: PRINT LEFT* <PO*,L 

0)" "J! UTAB V: HTAB Hs IF ME = 
2 OR X = 1 THEN PRINT ZY*<LL> : I 
Fffiafl THEN 16B 

150 VTAB V: POKE 8,TY: POKE 36, H - I I P 

OKE 7,LO: CALL 37350 
154 LC = PEEK <9) :E = PEEK < 6) : IF E = 

9 THEN RETURN 
156 ZZ* = PRINT SPC< LO - LC) : IF L 

C as THEN 168 
158 FOR 22 = 1 TO LC:2 = PEEK (784 + 2 

2> - 128:ZZ* = ZZ* + CHR* <Z) : N 

EXT 

162 IF TY < 3 THEN RETURN 

163 IF MID* (ZZ*,2,1) = V THEN 2Z* = 

■0- + 22* 

164 IF MID* <ZZ*,5,1> = "/" THEN ZZ* = 

LEFTS (ZZ* r 3> + "0" + RIGHT* < 
ZZ*,4> 

\65 IF LEN <ZZ*) < > 8 THEN Z* = ME*( 
3> : GOSUB 190: GOTO 149 

166 Z4 = VAL < MID* <ZZ*,4,2>>: IF VAL 

< LEFT* <ZZ*,2)> > 31 OR Z4 > 12 
OR 24 X VAL < RIGHT* <22*,2>) < 
= THEN Z* = ME*<3> : GOSUB 190 
: GOTO 149 

167 RETURN 

168 IF ME = 2 OR X = 1 THEN VTAB V: HT 

AB H:22* = ZY*<LL) : PRINT 22* 9PC 

< LO - LEN (Z2*>> 

169 RETURN 
180 REM 

190 VTAB 21: HTAB 1 1 CALL - 868: INVER 
SE : FOR Z = 1 TO 1 50 : Z 1 = PEEK 

< - 16336): NEXT : PRINT 2*;: NOR 
MAL : FOR Z = 1 TO 2500: NEXT : H 
TAB Is CALL - 868: RETURN 

360 DATA 9,28, 1,2, 17,36, 1, 1 

310 FOR I = 1 TO 2: READ 2VX< I ) ,2HX< 1 ) , 

2Ly.<I> „TY5£<I) : NEXT 

320 PO* = " " 

400 TEXT : HOME : PRINT D1*"BL0AD GESMA 

SKl,Dl"i REM PREMIER MASQUE DU 



PROGRAMS 

405 V = 14:H = 28 : LO = 1 :TY = 2:X = 0:ME 

= :By. = 
410 E = 0: GOSUB 149: IF E - 9 THEN 410 
420 2X = VAL (ZZ*> : IF ZX < 1 OR ZX > 6 

THEN 410 
430 IF ZX = 6 THEN HOME : END 
448 V * 17:H = 24:L0 = 9:TY = ULL = 1 
450 E - 1 GOSUB 149: IF E = 9 THEN 405 
468 2Y*<1) = Z2*:M* = ZZ*:ZM* - ■ ENREGI S 

TREMENT CONFIRME" : GOSUB 70: IF Z 

* - "N" THEN X - 1: GOTO 45& 
470 HOME : PRINT D*" BLOAD GESMASK2" :X - 

. 0:ME <= 0:BX = 0: REM DEUX I EME M 

ASQUE DU PR0GRAM1E 
480 V = 7:H = 29:TY = 2;L0 = 1:E = 0: GO 

SUB 149: IF E = 9 THEN 400 
490 ZY*<1) = ZZ*:D = VAL <2Z*>: IF D < 

1 OR D > 2 THEN X = l! GOTO 480 
500 IF ZX < > 4 THEN 569 

510 ME - :DX = 2:X = 

520 FOR LL = DX TO 3:L1 = LL - IiU « ZV 
X<Li> :H = 2««L1> iLO ■ 2LX<L1> :TY 

525 E = : GOSUB 149: IF E = 9 AND LL « 

2 THEN LL - 3: NEXT :X = 1: GOTO 
480 

530 IF E = 9 THEN LL = 1 sX = 1: GOTO 55 


540 ZY*(LL) = ZZ* 

550 NEXT iS - VAL <2Y*<2>>sE* = ZY*<3) 
: IF S < 1 OR S > 3 OR <E* < > " 
0" AND E$ < > "N") THEN DX = 3:X 
= 1 : GOTO 520 

560 GOSUB 70! IF Z* = "N" THEN X = 1: G 
OTO 480 

570 2=0: HOME : PRINT D 1*" BLOAD 'M* - , D" 
D: ON ZX GOTO 600,610,620,630,650 
600 IF 2 = THEN 90 10 

602 CALL 37500: REM ROUTINE DE GESTION 
DE MASQUES 

605 POKE 34,24a PRINT D1*"BSAVE"M*" ,A10 

24,L1024- : GOTO 400 
610 CALL 37503: GOTO 605: REM ON SAUTE 

LE ■ HOME 1 DE LA ROUTINE 
620 POKE 36,0: POKE 37,23: CALL 37537: 

GOTO 400: REM ON SAUTE DIRECTEME 

NT AU "JSR VTAB" DE LA ROUTINE 
638 PRINT D*"PRirS: IF E* =* "0" THEN P 

RIMT CHR* (9) "80N" 
640 CALL 37989: PRINT D1*'PR*0"; GOTO 4 

00: REM ROUTINE DE HARD-COPY TEX 

T 

650 ZM* = * PNNULAT 1 ON CONFIRMEE": GOSUB 

70: IF 2* = *N" THEN 400 
660 PRINT D 1*" DELETE B M* : GOTO 408 
9000 Z = PEEK <222) : IF Z = 6 AND Z'A = 
1 THEN 600 

9016 IF ZX = 1 THEN Z* = "CE MASQUE EXI 
STE DEJA": GOSUB 190: GOTO 486 

9029 Z* = "CE httSQUE N'EXISTE PAS" i GOSU 
B 190: GOTO 406 
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Programme MASK. DEMO 



10 HI MEM : 37349 

20 D* = CHR* <4>:D1* = CHR* C 13) + D* : 
PRINT D*" BLOAD INPUT. OBJ": PRINT 
D* " BLOAD rARA.OBJ": PRINT D*"BLO 
AD HCT.QBJ" 

48 GOTO 390 

45 REM 

46 REM PLACE A L'ADRESSE *6 LE CARACTE 

RE DE CONTROLE EN INUERSE 
50 Z = ASC <Z*> - 64: POKE 6,Z: CALL 38 
839: RETURN 

55 REM 

76 UTAB 22: HTAB Is INVERSE : PRINT ZM* 
NORMAL : INPUT ■ ? U ;Z*: UTAB 
22: CALL - 868:2* = LEFT* < 2* , 1 
) : IF Z* = "O" OR Z* = "N" THEN 

71 GOTO 70 

138 UTAB 22: HTAB 1: IWERSE : PRINT w/ 
RETURN" OU <?' POUR IMPRESSI ON" ; : 
NORMAL : GET 2* : IF ASC CZ*) < 
> 13 AND 2% i > "?■ THEN 130 
140 <vTAB 22: HTAB 1: CALL - 869 
142 IF ASC <Z*5 = 13 THEN RETURN 
145 POKE 34,24: PRINT Dt*"PR4tl B ! CALL 3 

7989: PRIhJT D1*"PRM0": RETURN 
14? UTAB V: HTAB H: PRINT LEFT* CPQ*,L 
O) ; : UTAB U: HTAB H: IF ME = 2 OR 
X = 1 THEN PRINT ZY*<LL) ; IF BX 
= 8 THEN 168 
150 UTAB Us POKE 9,TYs POKE 36, H - li P 

OKE 7,L0: CALL 37330 
154 LC = PEEK <9> :E = PEEk (6) : IF E = 

9 THEN RETURN 
156 ZZ* ■ "a PRINT SPC( LU - LC) : IF L 

C = THEN 168 
158 FOR ZZ - 1 TO LC:Z - PEEK <784 + Z 
Z) ~ 128:22* = ZZ* + CHR* (Z): N 
EXT 

162 IF TY < 3 THEN RETURN 

163 IF MID* <ZZ*,2 ( 1> = "/" THEN 27* = 

"0" + 22* 

164 IF MID* <ZZ*,5,1> = "/" THEN ZZ* = 

LEFT* (Z2* f 3> + "0" + RIGHT* ( 
ZZ*,4> 

165 IF LEN CZZ*> < > 8 THEN Z* = ME*( 

3> : GOSUB 196; GOTO 149 

166 Z4 = UAL ( MID* <ZZ*»4,2>): IF UAL 

< LEFT* CZZ*,2)) > 31 OR 74 > 12 
OR 24 X UAL < RIGHT* <ZZ*,2>> < 
= THEN Z* = ME*(3) ! GOSUB 190 
: GOTO 149 

167 RETURN 

168 IF ME = 2 OR X = I THEN UTAB U: HT 

Exemple : masque de MASK. DEMO 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X INTITULE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



169 
190 



309 
310 

328 
400 

410 



428 

430 
449 
450 



469 



47e 



AB H:ZZ* = ZY*<LL): PRINT ZZ* SPC 
( LO - LEN <ZZ*>) 
RETURN 

UTAB 21: HTAB 1: CALL - 868: INUER 
SE : FOR 2 = 1 TO 156:2 1 = PEEK 
< - 16336): NEXT : PRINT 2*j; NOR 
MAL : FOR Z = 1 TO 2508: NEXT : H 
TAB Is CALL - 86B: RETURN 
PO* = " " 

DATA CREATI ON , MODI FI CAT I ON , CONSULT 
ATI ON 

FOR I = 1 TO 3: READ LI*<I>: NEXT 
TEXT : HOME : PRINT D l* n BLOADMASK 1 " 

:LX = 

U = 22:H = 38.-L0 = 1 :TY = 2:X = :ME 
= 0: GOSUB 149: IF E = 9 THEN 41 



Z'A ■ UAL (ZZ*>: IF Z'A < 1 OR Z'A > 5 
THEN 410 
IF Z'A = 5 THEN HOME 
IF Z'A ~ 4 THEN 600 
HOME : PRINT D 1*" BLOAD 
HTAB la INVERSE 

NORMAL 
X iZ'A > 1) :X = 1 
:DX - 1:TY = 2 
= D'/ TO 18:L1 = 



480 E 



4: 

50 ; 

BA = 8 
E =" 
rUR LL 
INT 
+ 2 
= 
: 



END 

httSK2" ! UTAB 
: PRINT LI*<Z 

X <BA = 8> :M 



LL / 2:L = 
<L1> :DH - 1 X <L - LI) :U = 9 
X <L - DH) :H = 16 + 15 X OH:L 
9 - 2 X DH 

GOSUB 149: IF E = 9 AND LL = 



1 THEN LL = 10: NEXT : GOTO 400 
490 IF E = 9 AND ME = THEN LX = LL 

509 IF E = 9 THEN LL = LL - 2:ME = 2: G 

OTO 520 

510 2Y*<LL) = ZZ*:ME = 2 X < LL < L'A - 1> 
520 NEXT :BX = 8 : LX = 0: IF ZV. = 3 THEN 

GOSUB 130: GOTO 406 
530 ZM* - " ENREG I STREMENT CONFIRME" : GOS 

UB 70: IF Z* = "N" THEN X = 1 iVA 

= 10: GOTO 470 
540 GOTO 40 

680 HOME : PRINT D1*"BL0ADWSK3" : POKE 
34,24: PRINT D 1*" PR* 1 ■ s 2* " B A" I 
GOSUB 50 :Z* = m B m : GOSUB 50 :Z* = 
■A H : GOSUB 50 : Z* = 1 D" : GOSUB 50: 
PRINT "";: PRINT D*"PR*0" 
610 FOR I = 1 TO 5: VTAB 5: HTAB 13: PR 
INT " RUBRI QUE "I: UTAB 6: HTAB 7: 
PRINT ZY*<<2 * I> - Of I HTAB 27 
: PRINT ZY*<2 X I) ; 
620 PRINT Dl*"PRttl" :2* = "C" : GOSUB 50: 
PRINT PRINT D*"PR»0-: NEXT 

: PRINT D1*"PR*1" :2* = "D" : GOSUB 
50:2* = "A": GOSUB 50: PRINT Dl* 
"PR«0- : GOTO 480 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXX 
X UALEUR NO 1 X UALEUR NO 2 X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



X 






X 




X 




X 


X 


RUBRI QUE 


1 


X 


1234.56 


X 


987.65 


X 


X 


RUBRI QUE 


2 


X 


2233.44 


* 


999.59 


n 


X 


RUBRI QUE 


3 


* 


18 10 .20 


X 


234 . 56 


X 




RUBRI QUE 


4 


X 


9753. 10 


X 


943. 08 


X 


X 


RUBRI QUE 


5 


* 


2323.23 


X 


1 11.22 


X 


X 






X 




X 




X 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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MASKIN.SCE - Lisa 1.5 

1 ;HXXXXXXXXX*XXHXXI*XIXXXXXXXXXXI 

2 i* * 

3 ;X ROUTINE DE GCSTIW DC rtttOUES I 



4 ;X 




1 


5 i* 


cooe = msKiN.ow 


1 


6 |X 




1 


? i* 




I 




7 1 

JV 


ORG *927C 




J J 


OBJ 18^8 










13 H2 


EQU 119 




n v i 


EPZ 48 




ij n i 


FP7 (V 

trt * j 




io n 


EP? i7 


;Dft¥EAU POUR IM&RSE 


17 f 


Lib *w 




ID MM 


TP7 iTfl 

Lit r£Q 


■£-W£SS£ IERE OXOtC 


10 U 


LT£. *X*t 


'POSITION HOR CURSEUR 




FP7 17S 


;P0SIT1W VER. CURSEUR 


£ I V 1 MO 


ton ifpm 


;MKACE CURSB* EN V 




Fill IfOftf 


; ENTREE DC OWCTERE 


m hue 


LIAJ l*iiO 




M 


v3n no k 




M 

£*l 


Lit TV 




to 


err a M 

Jin ii 




5? DEB 


LDA U 




?fl 


Of H18 


j DERNIERE L1GNE ? 


29 


BNE S* 






LDA |« 


; RET OUR 1ERE COL/ IERE LI6NE 


31 


STA U 




3? 


STA H 




3a 

M 


jff> si 






LM H 




qS 

iW 


Of 9 H28 


jOERNIERE CX. DE LA LI9C ? 




rw SI 




3? 


LDA II 


;PftSSER A I ERE COL. LICK SMVPNTE 


38 


STA H 




39 


IHC V 




4H 

™ 


,i>* DEB 

til ■ ULU 






ICS WTAR 


■WRITIM* DRSflR 


It. 


JSR GET 


; ENTREE CARACTERE 


n 

TV 


Of 


;ESC ? 


44 


9€ S2 




45 


RTS 




4rt K? 

TO Jl 


ftf> MM) 


iRETUW ? 


47 


Bf£ S3 




io 


TUT 11 
I nv v 


iCUI =) LI9C SU1WKTE 


49 


J*F MB 




58 S3 


Of M95 


i ? 
I 




BNE S4 




52 


INC H 


; oui <> mam sui mr\ 


53 


jhp SI 






OF H88 


i ■<■' ? 


<5 


K S5 




JO 


LDA H 


-OUI =) CARACTERE PRECEDENT 


57 


Of 1 II 


i '<-' SUR IER CARAC. DE LA LI9*E 


58 


BEQ S6 






DEC H 


* 


a 


Af SI 




61 S6 


LDA Y 




62 


Of II 


;SI IER OWtt./JERE LI9€ : CN RESTE LA 


63 


BEQ SI 




64 


LDA «27 


; DEWIER CAftAC.AIM PfiECEDENTE 


65 


STA H 




66 


DEC V 




67 


JHP SI 




68 55 


Of »92 


; CTRL-R ? 


69 


H S51 




79 


DECU 


jOUI =) LICNE PRE CEDENT E 


71 


BPt SI 


iSI V)-8 tN POSITIWC EN V 


72 


LDA «17 


;0N SftUTE A LA DERNIERE LICTC 




STA V 




74 


JW> SI 





75 S51 

n 

77 

78 S53 
79 

88 S52 
81 
82 
83 

84 S7 
85 

87 
88 
ft 
9» 

N 
92 
93 
94 
95 

96 S8 

97 

99 

99 M 

lie 
in 

162 

163 

164 

165 

m Dl 

117 

118 

119 

110 



OF t*B9 
M S5P 
LDA fl 

STA H 
JHP SI 
Of K8E 
BNE 57 
LOA N 
Jlf S53 
Of H96 
K S8 
LDA U 
OF «17 
BEO SI 
JSR WBC1 
LDY H 

LDA KPSXO ,Y 
INC V 
JSR 01 
DEC H 

jtr si 

Of* W84 

BEQ Dl 
JH? S9 
UK V 
OP H17 
ft£ Dl 
LDA H 
Of »27 
EWE Dl 
JMPS1 
LDA V 
STA V2 
LDA H 
STA H2 
Of «27 



! CTRL-l ? 

SltHUER LE MfMRSE" 
CTRt-N t 

SIGNALER LE "N«m.' 
CTRt-V ? 

; DERNIERE L10C => ON IGNORE 
jCALCU. flORESSE BASE LI9€ V 

;PR0V Cm. H DE LICNE U 

; PASSE A LA LI ONE SU1WNTE 

;AFF1CHE LE CAfttfTERE 

; REHET IF CDRSEQ) MNS LA «E>€ COL (WE 

| CTRL-D ? 



;DEW1ERE COL/DEWIETff LI9C 
;SAIWEGARI>€ POSITION CURSEUR 



m IGNORE 



,SI OERNIER CW«C. DE LA LI6NE PflEMDRE 



■DfCAl AfiT A PW7IR DU CAAAC. SUIWWT 



111 ;LE PREMIER DE LA SUIWHTl 

112 K 06 

113 LDA II 

114 STA HI 

115 INCU 
1U LDA U 

117 STA VI 

118 JW* D7 
II? Di INCH 
126 LDA H 

121 STA HI 

122 LDA V 

123 STA Ul 

124 D7 LDA ttl? iON CECALE LES CARACTERES DE 

125 ! L'fcWfT DERNIER DE L'ECSftN JUSQU'A Hl/Vl 

126 STA U 

127 D3 LDY H24 

128 D5 JSR If (£1 

129 LDA (ADR) ,Y 
138 I MY 

131 STA (ADR) ,Y 

132 LDA V 

133 Of UI 

134 ETC D2 

135 CPY HI 

136 BNE D2 

137 Dll LDA V2 ;CN EST A Hl/Ut =) RESTITUER HAJ ET 

138 i fCnRE W 'BUWC' B* WO 

139 STA V 
146 LDA H? 

141 STA H 

142 LDA nm 

143 JSR 01 

144 DEC H 

145 JH» SI 

146 j 

147 ; PROCEDURE EN D2 => CMCNT COPIER IE DEWIER CARACTERE 

148 ; D'HC LICNE SUR LE PREMIER DE LA SUIUAMTC ET PEVDJIR 

149 j A CCTTE LI9C 
156 i 



50 
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151 D2 

152 

153 

154 

155 

1W 

15? 

158 

15? 

168 

16! 

162 

163 

164 

145 

166 

167 

168 

169 

178 

171 018 

172 
173 
171 04 
175 

17* 

177 S9 

178 J 
179 
190 
ISt ; 
182 
I S3 

164 Gl 

IS5 
186 
187 
188 
18? 
198 
191 Gl 
192 
193 
194 
195 G7 

m 

197 
198 
199 

n\ m 

282 G2 
283 
214 

285 
216 

287 
708 
2«9 
218 
211 
212 
233 
214 
215 
214 
217 
218 
719 63 
228 
221 
222 
223 
224 G5 
225 
726 



CPY II 
ENE D4 

DEC V 
IDA U 
JSR iFBCl 
LDY »27 
LM (ADR>,Y 
STiA c 
INC V 
LDA V 
JSR IF8C1 
LDY II 
IDA C 

STA (ADR) ,1 
CPY HI 
E»€ DIB 
LDA V 
OF VI 

etc Die 

JW Dll 
DEC V 
LDA U 
J»> D3 

DEY 
JW> D5 
Of 1 M87 



;DECAU WRACTCRC PRECEDENT 



CTRL-G > 



CTRL-6 =) DECALAGE A GAUCHE 
(HEMES PRINCIPES GENEftAlK QUE POUR CTRL-D) 

BfcU 68 
JHPfill 
LDA y 
CMP 1*17 
BNE 61 
LDA H 
Of »27 
K 61 
*f SI 
LDA U 
STA V2 
LDA K 
STA H? 
Of »?? 
K 64 
INC V 
LDA H 
STA H 
JW62 
INC H 
LDA V 
LDY H 
JSR iFBCl 
LDA (ADR) ,Y 
STAC 
CPY fll 
BE 63 
DEC V 
LDA 
JSR *FBC1 
LDY HV 
LDA C 

STA (ADR) ,Y 
INC V 
LDA ft 
STA H 

JWG5 

LDA U 
JSR iFBCl 
DEY 
LDA C 

STA (ADR) ,Y 
LDA V 
Of 1*17 
BEO 66 



277 LDA H 

228 JH> G7 

229 66 LDA H 
238 Of H27 

231 BEO 68 

232 J*f 64 

233 68 LDA IW 

234 JSR 01 

235 LDAU2 

236 STA V 

237 LDA H2 

238 STA H 

239 Jff SI 
248 Sll JSR OUT 

241 J* SI 

242 OUT LDX H 

243 ; IM -> TfWSFWCR US E0DE$-£CMH DCS WRACTERE& 

244 ; POUR AWIR LES ' IMARSE" 



CfX II 
K 01 
Of »C8 

BCS 02 

SEC 

S8C H88 
■If 01 
SEC 

sec ttc8 

254 j PROCEDURE 01 : AfFICHE LE CARACTERE n AUANCE CU&SEUR 

255 01 SIAC 
LDA V 
JSfl ifBCl 
LDY H 
LDA C 

STA (ADR) ,Y 
INC H 
RTS 

Dm 'IMP 

DC 



245 
246 
247 
248 
249 
259 
251 

252 02 
253 



756 
257 
258 
259 
268 
261 
262 
263 
264 



HCT.SCE - Lisa 1.5 



1 ;XXXXXXSXKXX3XXm'X¥XYXIttXXttXX 

2 ;X 

WRD-COPT ECWH TEXT 



CODC = HCT.08J 



Cf IHPRESSICN PAWHETREE 



9 -MiUiummmmmmmm 

9 1 

18 ORG $7465 

11 0RM888 

12 U EP2 i25 

13 ADR EPZ 128 

14 PR EftJ iFDED 

15 LDA H 

16 STA V 

17 HC8 LDY H 

18 JSR iFBCl 

19 HC1 LDA (ADR),Y 

28 ; CEDE ECTON )« 41 ; CARflC. 'NMW.' 

21 Of K48 

22 BCSHC2 

23 i COOE-ECRW COfRIS ENTRE n Ef 39: CARAC. AUTRE QUE M EN 

24 Of W28 

25 BCS HC3 

26 CLC 

27 ; TWHSFBK CARAC- DE *A' A "2' EN W 

28 ADC fiC8 

29 «£f HC2 
38 HC3 CLC 

31 ; TRANSFORC OWC. 0£ 'SPACE* A «9« EN "NOR**' 

32 ADC «8H 



5WERSE' 



Pom's n° 7 



*V1 Ik"! 

33 HC2 


ICO DO 

JSR PK 


• r loo i Lfa*Ajrr 


34 


LNY 




33 


"»i MOO 


■ ftTDNirDT mi rur ? 

,ULmltKL WLUT«. f 


1 1 

OQ 


fctC ML 1 




A/ 


LUH Is Of 


>ciu nr i iojr n'lWDCSQirN 
|r In ut LllfK v irrKtwim 


"IT* 


JSR PR 




3x 


INC V 


J 11 UK MJl\*f1"t 




1 flA II 




4! 


fid MA (A 


;[)r WiltKr 1 llf« r 


42 


Eft HC8 




43 


RTS 




44 


ix« "int' 




45 


END 





PARA.SCE - Lisa 1.5 

i {Xxxxxxxxxxihxxxxxxxxxxxxxxxxxxxi 



2 ;l 




* 


3 tl 


IMPRESSION PAfWtTREE 


* 


4 <i 






5 [1 


coot • Pnw.oej 


I 


6 d 




1 


7 ;HXXXXXXXXXHXXXHXXXXXXXXHX8H 


° i 
9 


ORG *?497 




IS 


OBJ 




n v 


EPZ 425 


;POSniQN UERTICALE CURSEUR 


12 AM 


EP2 928 


;A0f£SSE PREMIERE CflLQNNE 


13 C 


EPZ «6 


;CtfW. OE CONTROLS EH 'IMKR8E 1 


14 PR 


EOU IFDED 


; SORTIE DE CfflACTERE 


15 


LDA H 




\6 


STA V 




17 


LDX IS 




is hw 


LOY It 


; y=N0 DC COtCNC 


19 


JF« *FBCI 


;CALCa fOftESK BASE LI 3* COUNQNTE 


28 HP3 


LDA (AOR) ,Y 




21 


Off C 


; CARTERS DE CtHTROLE ? 


22 


BNE HPI 




23 


CfX 11 




24 


B£ HPS 




29 


LDA kbd 


;FIN DE L1GNE D'lMPRESSItH 



a 


ICC DO 

Jon rX 




07 

CI 


PTC 

Kl 3 




- O 1 ■ V 


1 nt 11 


iCW A TRQUJE LE IFft CAftAC CflWTROLE 

■ Vl r» 1 nWrL i— l- l Lit uTVwi Wlinvwfc 


t" 


UP? 




x rr j 


rev it 

CTA 11 


■ IFP f^trf" rfNTDfl F DF.IA TH1UF ? 

1 1LA l#W**> UUi 1 f\ IA-L 1/i.vn InWVL - 


n 

Jl 


fir unn 




M 

5x 






« nrz 


INT 


■ rAttM-uui ClUIMM 


EM 


CrT n« 


ILtHNItKh LULWt f 


ic 
33 


nr uoo 
trfc nrd 




n 
io 


TUT tl 


|Llu1C OUlvrfll u 


SI 


1 rvi 11 
Lin V 




9fl 
3B 




. pcojicdc 1 car 
j utwi I in l 1 tf* f 


39 


BNE HP4 




-13 


fas 




41 


Dffl MNP 




42 


END 





txemple : masque de GESMASK 



* GESTI ON DE MASQUES X 
X X 
I X 

x x 

X 1 - CREATION 2 - MODIFICATION X 

X X 

* 3 - CONSULTATION 4 - IMPRESS I CM X 
X X 
X 5 - AMBULATION 6 - FIN * 
X X 
X * 

* VOTRE CHOIX : X 
X * 
X X 

X NOM DU MASQUE : X 

X X 

X * 



XXXXXXXXX*****X**XXXXX*XX*XXX**XXX*XX*XX 



Abonnez-vous a Pom's 



La vie de votre revue depend de son nombre d'abonnes. Plus vous etes nombreux, plus 
nous pouvons vous rendre service, par Taugmentation correspondante de nos moyens 
comme par le plus grand nombre de contributions que nous recevrons for/cement de vous. 

Nous avons volontairement choisi une politique de disquettes a bon marchc ; ainsi, lorsque 
vous vous abonnez avec disquettes, chaque disquette vous revient a moins de 45 francs 
TTC, port compris ! 

Un abonnement a quatre numeros coute aujourd'hui 295 francs. Cela ne sera-t-il pas 
largement amorti si une seule des 200 pages de texte que vous trouverez en quatre 
numeros vous resoud ce probleme sur lequel vous sechez (on a vite fait de perdre deux ou 
trois jours sur un probl&me) ? 

Dans de nombreux numeros, nous vous avons offert des programmes comparables a ceux 
qui sont vendus de 250 a 500 francs dans les boutiques. Profitez-en ! 
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52 



MASKIN.OBJ 

X.927C . 94.64 



927C- 


20 


58 


FC 


A9 










9289- 


00 


85 


87 


A5 


25 


AA 

C9 


18 


A A 

D9 


9288- 


09 


A9 


80 


85 


25 


85 


24 


4C 


9299- 


Al 


92 


A5 


24 


^V A] 

C9 


28 


A. A 

D0 


A #^ 

09 


9298— 


A9 


A A 

00 


85 


a * 
24 


E6 


oc 

25 


4C 


OO 

83 


92A0- 


92 


20 


22 


FC 


20 


A A 

0C 


FD 


C9 


92A8- 


9B 


D0 


1 


60 


C9 


or. 
8D 


r\ft 
D8 


AC 
0O 


92B0- 


to 


25 


4C 


O O 










9288- 


A *"* 

85 


E6 


A. A 

24 


4C 


92 


92 


A-^% 

C9 


88 


92C9- 


D0 


1A 


A5 


24 


C9 


A A 

00 


F0 


85 


Ai Ai ^"S ^\ 

92C8- 


C6 


24 


4C 


A 4 

A 1 


OO 

92 


A C 

A5 


on 

25 


cy 


n, Ai a a 

92D0- 


A A 


F0 


A.^~ 

CE 


A i — » 

A9 


o^ 

27 


85 


o>i 

24 


A- X 

Co 


92D8- 


Ai^^ 

25 


4C 


A fl 

Al 


A] A, 

92 


C9 


A. A, 

92 


ISO 

D0 


ft D 


92E8- 


C6 


25 


19 


BD 


An 

H9 


17 


85 


2D 


92E8- 


4C 


Al 


92 


C9 


89 


D8 


A 1 

87 


A9 


92F8- 


1 


85 


07 


4C 


Al 


92 


AA 

C9 


8E 


92F8- 


D0 


85 


A9 


00 


4C 


Fl 


92 


C9 


9308- 


96 


D0 


17 


A5 


25 


C9 


17 


F0 


9398- 


98 


20 


CI 


FB 


A A 

A4 


Ai Jt 

24 


81 


Ai A 

28 


9318- 


E6 


25 


20 


■ — e — 

55 


> — I A 

94 


C6 


' — V A 

24 


4C 


9318- 


92 


92 


C9 


84 


F0 


03 


4C 


Ai . — - 

B8 


9328- 


93 


A5 


25 


r- 1 Ai 

C9 


17 


A A 

D0 


a n 

09 


A5 


9328- 


24 


C9 


27 


A- A 

D0 


A. Ai 

83 


4C 


A 1 

Al 


A. A, 

92 


9339- 


A5 


25 


8D 


18 


Ai A 
88 


A5 


A> ^ 

24 


8D 


a. a, a, a. 

9338- 


19 


A A 
80 


f\A 

C9 


A,— » 

Z7 


Pwft 

D8 


0D 


AO 

At 


ft (k 

Ho 


i—i. A in 

9340- 


85 


A A. 

09 


Eo 


25 


AC 

R5 


25 


85 


a 
08 


9348- 


4C 


55 


93 


E6 


24 


A5 


'Sit 

24 


A CT 

85 


9350- 


A Mi 

09 


A CT 

A5 


25 


rf— h ■ 

85 


08 


A Q 

A9 


17 


OJ 


9358- 


25 


A8 


26 


28 


CI 


FB 


D 1 


OO 


9368- 


C8 


91 


28 


A5 


25 


C5 


Art 

08 


A A 

D0 


9368- 


18 


C4 


89 


D0 


14 


AD 


18 


A A 

00 


9370- 


85 


25 


AD 


19 


A A 

00 


85 


24 


A9 


9378- 


A8 


20 


55 


94 


C6 


24 


■ A 

4C 


A 1 


9380- 


92 


C8 


A 4 

01 


rv a 

D8 


2E 


Co 


25 


AC 

HD 


i~* «^ 
9388- 


25 


Ai A 

20 


C 1 


FB 


A. A 

A0 


27 


B 1 


00 


9398- 


85 


a y 

06 


E6 


25 


aC 

A5 


25 


20 


L 1 


9398- 


FB 


A8 


ft Q 


AC 

mD 


W6 


7 1 


OO 


L4 


93A0- 


A ^% 

09 


D8 


09 


A.C 

A5 


oc 

25 


Co 




08 


Do 


93A8- 


03 


4C 


6D 


93 


C6 


25 


A5 


25 


93B0- 


4G 


59 


93 


OO 

OO 


OO 


4U 


errv 
WO 




93B8- 


C9 


a,"j 
87 


F0 


03 


4C 


or* 
3U 


Oa 

y4 


AC 


93C0- 


25 


C9 


17 


D8 


89 


A5 


Oa 




93C8- 


o~? 

27 


Do 


03 


A A 

4C 


Hi 


OO 

92 


AC 

A5 


0^ 


Ai a ^ 

93D0- 


8D 


18 


A A 

00 


A5 


24 


8D 


4 
19 


a a 
80 


93D8- 


C9 


27 


DC 


09 


E6 


25 


a 

A9 


00 


93E8- 


85 


24 


4C 


E7 


93 


E6 


24 


A5 


93E8- 


25 


A4 


24 


20 


CI 


FB 


Bl 


28 


93F8- 


85 


06 


C0 


00 


D0 


16 


C6 


25 


93F8- 


A5 


25 


28 


CI 


FB 


A0 


27 


A5 


9496- 


06 


91 


28 


E6 


25 


A9 


00 


85 


9408- 


24 


4C 


16 


94 


A5 


25 


20 


CI 


94ie- 


FB 


88 


A5 


06 


91 


28 


AS 


25 


9418- 


C9 


17 


F8 


05 


A5 


24 


4C 


D8 



l~ ■ A s - ! A 

9420- 


/~\ Aj 

93 


A5 


24 


AQ 

C9 


27 


F0 


A A 

03 


4C 


9428- 


E5 


93 


A A, 

A9 


A A 

A0 


OA 

28 


PC 

55 


O A 

94 


A T\ 

AL) 


i~i A A A 

9430 — 


18 


A A 

08 


OCT 

85 


oc 

25 


a r\ 

AD 


1 
19 


a ft 


OCT 


. — . j> Ai Ai 

9438- 


24 


A A 

4C 


A 4 

Al 


92 


A A 

20 


A «S 

42 


94 


A A 

4C 


9448- 


92 


AA 

92 


A6 


A 

07 


A 

E0 


A> fl 

8 1 


AA 

D0 


a r\ 

0D 


9448- 


C9 


C0 


88 


06 


38 


E9 


80 


4C 


9458- 


55 


94 


38 


E9 


C0 


85 


86 


A5 


9458- 


25 


20 


CI 


FB 


A4 


24 


A5 


86 


9468- 


91 


28 


E6 


24 


60 









HCT.OBJ 

X9465.9496 



94^5- 


A9 


00 


85 












9468- 


25 


A8 


00 


26 


CI 


FB 


Bl 


28 


9470- 


C9 


40 


B0 


0D 


C9 


20 


B0 


86 


9478- 


18 


69 


C0 


4C 


81 


94 


18 


69 


9488- 


80 


28 


ED 


FD 


C8 


C6 


28 


D6 


9488- 


E5 


A9 


8D 


26 


ED 


FD 


£6 


25 


9490- 


A5 


25 


C9 


18 


D0 


D3 


60 





PARA. OBJ 

X9497.94CB 
9497- A9 



9498- 


80 


85 


25 


A2 


00 


A0 


88 


26 


94A9- 


CI 


FB 


Bl 


28 


C5 


06 


D0 


0F 


94A8- 


E8 


01 


D0 


06 


A9 


8D 


28 


ED 


94BB- 


FD 


68 


A2 


01 


4C 


BE 


94 


E0 


94B8- 


01 


08 


03 


28 


ED 


FD 


C8 


C0 


94C8- 


28 


D8 


DF 


E6 


25 


A5 


25 


C9 


94C8- 


18 


D0 


D2 


68 











INPUT. OBJ 

(Voir Pom's 6 pages 19-22) 
*91E6.926F 



91E6- 


A9 


88 














91E8- 


A6 


07 


9D 


11 


03 


CA 


18 


FA 


91F0- 


A2 


00 


86 


06 


20 


ec 


FD 


C9 


91F8- 


8D 


F0 


72 


E4 


87 


98 


0A 


C9 


9280- 


88 


F8 


28 


28 


DD 


FB 


4C 


F4 


9208- 


91 


C9 


9B 


D8 


09 


E8 


00 


D8 


9218- 


85 


A9 


09 


85 


06 


68 


C9 


AC 


9218- 


D0 


05 


A? 


AE 


4C 


63 


92 


C9 


9220- 


AE 


F0 


48 


C9 


88 


D0 


0A 


E0 


9228- 


00 


F8 


86 


CA 


C6 


24 


4C 


F4 


9238- 


91 


C9 


95 


D6 


0C 


A5 


25 


20 


9238- 


CI 


FB 


A4 


24 


Bl 


28 


4C 


63 


9240- 


92 


C9 


A0 


98 


AF 


C9 


DB 


B8 


9248- 


AB 


A4 


68 


C0 


1 


F0 


0C 


C9 


9258- 


AF 


B0 


04 


C9 


AD 


D0 


9D 


C9 


9258- 


BA 


B0 


99 


E8 


88 


D8 


84 


C9 


9260- 


A2 


F0 


91 


28 


ED 


FD 


9D 


1 1 


9268- 


03 


E8 


4C 


F4 


91 


86 


89 


60 



's n° 7 



Clefs pour r Apple II 

par Nicofe Breaud-Pouliquen 
Ce livre de reference est destine a se 
trouver en permanence h cote de votre 
Apple II. Son but est de vous faire acce- 
rier rapidement a ('information dont vous 
avcz besoin : syntaxes des commandes. 
codes machine, adresses utiles. II com- 
prend egalement un recueil de 25 k 'trues" 
utiles, les "Comment... ?" 
Format: 14,5 x 21 
144 pages 
92,00 FF / 710,00 FB 




Et11 livres 
de reference 
pour votre Apple., 

Lb decouverte de I'AppIesotl 

Tome 1 - par Dominique Schracn 
at r fedirfc Levy 

Serie verte • Formal w • 2\ 
128 pages 
72.00 FF/ 555.00 FB 
La decouverte de I'AppIesotl 

Tomo 2 par Frederic Levy 
Serie verte - Foitrtai w.5 * 21 
120 pages 
72.00 FF/ 555.00 FB 



La pratique de I'Applell 

Tome 1 

par Nivofe Bieuud-Puutiqutin 

Serie bleue - hormai w;sVj?i 
128 pages 
72.00 FF/ 555.00 FB 
La pratique de I'Applell 

Totnez 

par Nicofe Bieaud-Pouliquei) 
Serie rouge - Forma! m.s ■ 21 
120 pages 
72,00 FF/ 555.00 FB 
La pratique de r Apple II 

Tome 3 

per Nicole Dreaud'RQuhqucn 
Serie noire • Format. 14,5 x 21 
176 pages 
82,00 FF/ 635.00 FB 



Lisp sur Apple II 

par Nicole Bi&aud-Puuliquen 

Serie bleue - t-ormar n x 25 
112 pages 

72.00 FF/ 555.00 FB 
Visicalc sur Apple 

pot Heive Ttmitjt 

Serie verte - f-ormar rr • 25 

176 pages 

82.00 FF/ 635.00 FB 

Mathcmotiqucs el slatistiques 

per Horve Heut 

Serie rouge • Format tTx25 

272 pages 

92.00 FF . 710.00 FB 



La comptabilite sur Apple II 

pur Geraid et Serge Lliu 
Furmal . 21 X 28,5 

160 pages 

102,00 FF 1 785,00 FB 
32 Basic Programs lor Apple I 
computer 

rormat13.5 * 21 

280 pages 

150.00 FF / 1155.00 FB 

Recueil Pom's fi u 1 
200 pages 

120.00 FF / 925.00 FB 




P.S.J. DIFFUSION 
41-51. rue Jacquard 
BP 86 

77402 Lagny-s Marne Cedex 
FRANCE 

Telephone (6) 007.59.31 

P.S.I. BENELUX 

5, avenue de la Forme Rose 

1180 Bruxclles 

BELCIQUE 

Telephone (2) 345.00.50 



Envoyer ce Don 
accompagne 
devolrereglementa 
P S.I DIFFUSION 
ou pour la Belgique et 
le Luxembourg, a 

PS I BbNfcLUX 



NOM 



DESIGNATION 


NOMBRE 


PRIX 




















par avion ajouter 6 FF (75 FB) par livre. 


TOTAL 





PRENOM 



rue 



Code post i_ 



Ville 



FID, MUFFIN et DEMUFFIN 



Herve Thiriez 



Les programmes FID et MUFFIN se 
trouveni sui la disquette MASTER 
du DOS 3 3- Reaucoup de lecteurs 
nous ont pose des questions a Ieur 
sujet et ne semblent done pas bien 
maltriser leur utilisation. Nous allons 
par consequent apporter quelques 
eclaircissements a cet egard. Nous 
signaions a tout hasard que la bro- 
chure du DOS en francos explique 
['utilisation de ces deux program- 
mes ; le lectcur pourra aussi s'y 
reporter. 

Les fonctions du programme FID 
sont multiples : il vous permet de : 

• copier des fichiers (1 ou 2 lecteurs) 
de toute nature, meme binaire ou 
lexte 

• demander le catalogue 

• obtenir le n ombre de secteurs 
libres 

• verrouiller (LOCK) ou deverrouil 
Icr tout tichier 

• effacer (DELETE) tout fichier 

Le programme MUFFIN, quand a 
lui, permet de transformer des 
fichiers du DOS 3.2 vers le DOS 
3.3, y compris pour les fichiers Visi- 
calc. 

Ces deux programmes sont agrea- 
bles but le plan ergonomique. lis 
savent, grace a ['utilisation de 
valeurs pai defaut, vous eviter des 
repetitions inuriles. Par exemple. 
lorsqu'on demande une seconde fois 
d'affilee la copie de fichiers, le pro- 
gramme ne demande plus la specifi- 
cation des numeros de slot et drive. 

Si ion possede un seul lecteur. le 
transfert se fait du slot 6, drive 1 
vers lui-meme ; FID et MUFFIN se 
chargent de vous indiquer quand il 
faut mettre la disquette initiale ou la 
disquette finale dans le lecteur. 

Utilisation 
du signe « = » 

Pour les deux programmes, la 
meme technique d'identvfication 
abregee des fichiers est possible. 
Quand le nom du fichier a copier ou 
a adapter est demande, l'utilisateur 
peut repondre par le signe * = ». 

Ce signe signifie « lous les 
fichiers » : le programme demands 
aluis « Do you want prompting ? ». 
r.'est-a-dire « Voulez-vous une 



demande de confirmation a chaque 
fichier ? ». 

Si vous repondez par 1'affirmative, le 
programme vous demande a cha- 
que fichier s'il est concerne ou non 
par Toperation. 

Si vous repondez de (aeon negative, 
tous les fichiers de la disquette sont 
concerned. 

Le signe * — » peut aussi etre utilise 
dans le nom. Ceci permet par exem- 
ple de selectionner seulement les 
iichiers de texte en Apple writer avec 
la reponse « TEXT= ». Le restc se 
passe comme dans le cas ou on a 
repondu par ■> = ». 

Ainsi, en specifiant un nom tel que 
« = AL = X = », l'utilisateur selec- 
tionne tous les fichiers comportant 



ments memoire. On peut par conse- 
quent rappeler les programmes, s ils 
n'ont pas ele ecrases, par un simple 
CALL. 

CALL 2051 reactive FID ou MUF- 
FIN ; le dernier chaige en memoire, 
car les deux utilisent la meme zone 
et ne peuvent par consequent 
coexister. 



Creation de DEMUFFIN 

Ceux qui ne possedent pa* le pro- 
gramme SUPER COPY, qui permet 
de transferer des fichiers dans les 
deux sens entre le DOS 3.2 et le 
3.3, peuvent transformer leur MUF- 
FIN en DEMUFFIN afin de pouvoir 
adapter leurs fichiers en DOS 3.2. II 




dans leur nom « AL » puis * X » 
dans cet ordre. 

Retour au menu 
principal 

Lorsque Ton desire revenir au menu 
principal, il suffit dentrer la reponse 
* Q » (pour QUIT). Cest particulie- 
rement utile pour copier ou transfor- 
mer un fichier dont on ne se rappelle 
plus bien le nom. 

On utilise alois l'option « ^ » et le 
« prompting » pour identifier le 
fidiiei , une fois la copie (FID) ou la 
transformation (MUFFIN) assuree. il 
est superflu de repondre « Y » ou 
« N » a la proposition de chaque 
fichier ulterieur. 13 suffit de repondre 
« Q » au lieu de « Y » ou « N ». 

Rappel du programme 

Les deux programmes resident en 
memoire jusqu'au moment ou un 
RESET a eu lieu, a moins que des 
programmes utilises avant celui-ci 
n'aient occupe les memes emplace- 



y a en effet encore des DOS 3.2 non 
transformer dans la nature. 

La procedure la plus simple est celle 

proposee par Rob Moore dans la let- 
tre du SNAC (Southern New 
Hampshire Apple Core) et publiee 
par CALL A.P.P.L.E. en fevrler 
81 : 

1. BLOAD MUFFIN 

2. CALL -151 
15AF 
15B6 
15F7 
20AA 



B3 
B2 

C4 C5 

A9 IE 8D B9 B7 20 
FD AA 48 A9 BD 8D 
B9 B7 68 60 
00 1F 
D9 03 
AA 20 



20B0 
20B6 
1155 
115B 
1197 

Cette procedure cree un programme 
DEMUFFIN DOS 3.3, e'est a dire 
qu'il permet. quand on est en 
DOS 3.3, de transporter un fichier 
sur une disquette en DOS 3.2. 

II ne reste plus qua revenir en 
Applesoft et a faire : BSAVE 
DEMUFFIN 3.3, A$803. LS1900. 
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Le cours de BASIC 
Applesoft cT Andre Finot 



Jean-Jacques Crepy 



Ayant recernment acquis un Apple 
dans le but de permettre a mes 
enfants de s'initier a linformatique. 
je me suis renseigne pour sovoir 
quelles etaient les possibility 
d'apprendre le BASIC 3 domicile. 
J'ai fait cette experience avec le 
* Cours de BASIC Applesoft . 
d'Andre Finot. 

Ce cours se presente sous la forme 
de trois disquettes accompagnees de 
deux feuilles de commentaires sur le 
cours, ses objectifs et son mode 
d'utilisatlon. II ne reste plus qua 
mettre la premiere disquette dans le 
lecteur el a lire les ecrans successifs, 
en repondant aux questions even- 
tuelles. 

Mes enfants et moi meme avons tra 
vaille avec ce cours de BASIC. 
Seule I'augmentation de mes activi 
tes professionnelles m'a empeche de 
depasser la lecon 8 (sur les 26 que 
compte ce cours en trois disquettes). 
Voici done mes premieres impres- 
sions, completees par celles de mes 
tfils qui ont ete jusqu'au bout du 
cours. 

Ma premiere impression esl favora- 
ble : la methode proposee est simple 
el permet a quelqu'un n'ayant 
anrunp nntinn d'informatique de 
comprendre les premiers rudiments 
de ce langage. 

Ma seconde impression generate est 
un peu moins bonne, et concerne 
principalement rirnpossibilite d'effec- 

tuer des retours en arriere. II devrait 
etre possible de bloquer le denote- 
ment du programme d'une Iec/>n, 

pour mieux en comprendre telle ou 

telle partie. 

Je regrette personnellement de ne 
pouvoir me referer a des explications 
anterieures pour mieux comprendre 
le programme £tudie. Ceci est parti- 
cuherement valable lorsqu'il est fail 
etat de courbes et de dessins. 

Je pense que, si cette possibility etait 
offerte, le cours serait tres facllement 
assimile, en particulier dans ce cas 
precis. 

En ce qui concerne les revisions, 
1'etudiant a la possibility de soumet- 
tre trois reponses. Si, au terme de la 



rroisi&me, il n'a pas reussi. la bonne 
reponse lui est donnee. 

Personnellement, j'airnerais que la 
reponse soit. dans certains cas, 
mieux explicitce, et qu il soit even 
tuellement possible de connaftre 
1'errcur que Ton a commisa. En 
effet, puisqu'un retour en arriere est 
impossible, on ne peut comparer la 
mauvaise reponse avec la bonne. II 
est possible de tourner cette limita- 
tion en inscrivanl ses reponses au fur 
et a mesure sur un morceau de 
papier, inais cela me parail peu 
o informatique ». 

En conclusion, je peux dire que je 
suis tres content de ce cours, et qu'il 
en est de meme pour mes enfants, 
dont ('opinion synthetisee suit. 

Jean-Jacques Crcpy 

Points positifs 

• les instructions sont clairement 
expliquees 

• le langage est simple et accessible 
a tous 

• n'importe qui, meme tres jeune, 
peut suivre ce cours 

• le revisions sont bien faites 

Points negatifs 

• on n'avance pas tres vite 

• trop grande « sophistication » de 
la presentation, qui ralentit le pro- 
cessus 

• on est esclave du programme : II 
faut suivre une lec,on dans sa Jola- 
lite avant de revenir en arriere 

• le programme s'adresse a nous 
comme si Ton avait 8 ans. 

Conclusion 

Ce programme devrait etre enseigne 
en 6eme ou en 5eme. L'eleve peut 
le suivre seul, le professeur circulant 
entre les eleves. C'est une initiation 
parfaite pour un debutant. II aurait 
fallu que le programme comporte un 
tableau recapitulatif des mots reser- 
ves du BASIC que Ton puisse sortir 
sur imprimante. 

David, 18 ans 

Points positifs 

• utilisation alsee 

• texte clair, agreable et precis 

• presentation agreable 



• nombreuses questions, posees 
3 fois (en cas d'erreur) 

• precision des questions 

• temps de reflexion pour les repon- 
ses. 

Points negatifs 

• impossibilite d'interrompre le pro- 
qramme pour faire un retour en 
arriere 

• nombreuses questions trop faciles, 
qui se repute nt 

• pas d'explication (avec reference 
au cours) en cas d'erreur 

Suggestions 

• realiser un fichier des termes, de 
leur signification et de leur mode 
d'emploi 

• fournir un sommaire plus detaille. 

Philippe, 16 ans 



Remarques d'Andr£ Finot 

Je tiens a vous remercier de votre 
analyse de mon cours de BASIC. La 
prochaine version, deja bien avan- 
c£e, aura les possibilites suivantes : 

• arrets et reprises possibles du 

cours par page ou demi page 
d'ecran (existe deja) ; 

• pour un positionnement rapide 
dans le cours : 

retour en arriere possibles ; 
— deroulement en avant a grande 
vilesse ; 

• fractlonnement des lemons en par- 
ties avec indication sur l'ecran de 
l'entree et de la sortie de telle par- 
tre au de le))e )egon ; 

• la plupart des programmes, sinon 
tous. pourront etre listes sur impri- 
mante. 

D'autre part . je vais tenir compte des 
points suivants que vous siynalez : 

• affichage des reponses aux ques-' 
tions ; 

• tableau recapitulatif des mots 
reserves ; 

• sommaire plus detaille ; 

• fichier des termes, de leur signifi- 
cation et de leur mode d'emploi. 
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Multiplan a l'essai 

Herve Thiriez 



Etant un utilisaieur quasi quotidien 
de Visicalc, la disponibilite de Multi- 
plan sur Apple II Plus ui'd tuut de 
suite excite. II fallait que je puisse 
metire la main sui ce programme 
afin cie Pevaluer. Cest maintenant 
chose faite, et je dois reconnaitre 
que je ne regrette pas I'experience ! 

Initialement disponible seulement 
sur CP/M, Multiplan fonctionnc 
maintenant sur Apple II Plus 64 K et 
Apple lie. La version franchise du 
programme doit sortir sur le marche* 
en mars/avril 1983. 

Le programme fonctionne en 
40 colonnes, rnais il est concu initia- 
lement pour 80 colonnes I. a com- 
patibility avec les cartes suivantes est 
prevue : Videx Videotherm, 
M&R Sup'RTherm, ALS Smar- 
term. Vista Vision-8U et Wesper 
Wizard-80. Ceci dit, ce banc d'essai 
a ete realise en 40 colonnes sans dif- 
ficulte. 

Presentation generate 

Produit par la celebre compagnie 
Microsoft, a laquelle nous devons les 
meilleurs BASICs sur micro- 
ordinateur et d'autres realisations de 
tous genres (Olympic Decathlon , 
pour n'en citer qu'une) , Multiplan se 

propose de remplaccr Visicalc. Dans 

ce but, il vise a assurer toutes les 
fonctions de ce best-seller, et a en 
ajouter quelques-unes de son cru. 

Le lancement est quelque peu diffe- 
rent : le programme est fourni avec 
une disquette de BOOT protegee et 
une disquette programme copiable a 
volunte. 

Nous retrouvons au lancement du 
programme un tableau de 63 lignes 
et 255 colonnes, a deux differences 
pres : 

• Tidentification des lignes et des 
colonnes est entierernent numeri- 
que (je ne vois pas ce que cela 
apporte) ; 

• les commandos apparaissent tou- 
tes en bas de F ecran, et peuvent 
etre selectionnees soit par leur pre- 
miere lettre, soit par validation 
d'un curseur des commandes que 
Ton deplace ais£ment. 

II existe aussi une difference non visi- 
ble au premier coup d'ceil, mais 



impoitante pour le debutant : l'exis- 
tence H'une fonction HELP permet- 
tant a 1' utilisaieur de se renseigner a 
tout moment sur le mode d'emploi 
de la commande en cours. Bien 
entendu, il faut pour cela que la dis- 
quette programme soit dans le 
drive 1 ; ce n'est pas vraiment 
genant car il y reste assez de place 
pour rnemoriser un tres grand 
tableau. 

Comme son grand frete Visicalc, 
Multiplan laisse 1'utilisateur definir le 
contenu de chaque rase, sous forme 
de libelle, de valeur numerique ou 
de formule Comme lui, il recalcule 
tuul le tableau automatiquement ou 
a la demande. On retrouve dans 
Multiplan toutes les possibilites de 

Visicalc ; il y a meme (symbols de 
I'esprit pratique des americains) un 
programme de conversion des 
fichiers Visicalc. .. 




Les nouveautes 

Les differences sont cependant 
nombreuses, Multiplan repondant 
preventivement aux critiques qui 
avaicnt ete formulees anterieure- 
ment a l'eqard de Visicalc. Les ame- 
liorations sont multiples : 

• la largeur des colonnes est variable 

• les formules peuvent etre globale- 
ment verrouillees 

• toute case peut etre verrouillee 

• il est possible de baptiser une case, 
ou une serie de cases : on peut 
utiliser les norns dans des formu- 
les, ce qui est fort agreable 

• il y a au maximum huit fenetres 
(e'est meme trop) 

• de nombreux formats sont dtspo- 
n ibles 

• il existe une commande de tri 
(SORT) 



• les modes d'impression sont beau 
coup plus riches 

• le recalcul automatique s'effectuc 
de facon reellement automatique 
(pas besoin d'appuyer n fois sur la 
touche « ! »). 

La fonction de reproduction est 
assez differente : il n'est plus ques- 
tion de definir, pour les coordonnees 
des formules, si elles doivent etre 
prises en absolu ou en relatif. Cest 
an moment de la definition dune 
formule que Ton indique la nature 
des coordonnees. 

Ainsi. la formule « +R2C3 
-+ (1.5xRC[ 2]) » signifie que Ton 
utilise le contenu de la ligne 2 et 
colonne 3 (en absolu), et celui de la 
case placee deux colonnes a gauche 
dans la meme ligne (en relatif). Si 
cette formule est reprodulte, elle 
sera reproduite telle quelle, la nota- 
tion rendant irnmediatement relatif 
ce qui doit l'etre. 

Enfin, et la se trouve la justification 
du nom de Multiplan, on peut tra- 
vailler sur plusieurs tableaux et les 
liei les uns aux autres, ce qui evite 
de devoir transferer des informations 
avec le format DIF. Ainsi, par exem 
pie : 

• le tableau principal peut etre la 

consolidation de trois activites ; 

• chaque activite possede son 

tableau principal propre ; 

• des tableaux annexes effectuent 
les calculs secondaires. 

11 ne reste plus alors qu'a definir les. 
liens entre les tableaux. 



Aspects ergonomiques 

Pour un habitue de Visicalc, le pre- 
mier contact avec Multiplan est frus- 
trant. Pour commencer, le scrolling 
(deplacement « rapide » dans le 
tableau) est plus lent ; surtout, il est 
moins pratique : il faut utiliser les 
touches CTRL-E, CTRL-S, CTRL-X 
et CTRL-D (je ne suis pas gaudier, 
et prefere utiliser un dnigt plut6t que 
deux). 

Ce probleme n'apparait pas sur 
I' Apple lie, qui dispose de quatre 
touches de deplacement. 

Heureusement, on peut aussi se 
deplacer ecran par ecran, ou directe- 
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ment en haut a gauche ou en bas a 
droite de la partie du tableau utilisce. 
Enfin, on peut donner un nom (bap- 
tiser) unc case ct s'y positionner 

directement grace a ce nom. 

Dans un souci de protection du con- 
tent! des cases, on ne peut rentrer 
une valeur ou une (uiinule dans une 
case sans preciser H'abord « A » 
(alpha), « V » (value) ou utiliser un 
symhole mathematique (value). 
L'expert es Visicalc court au-devant 
de surprises desagreables en entrant 
trop vite des libelles : « ALLOCA 
HONS » est compris comme le texte 
(* A » pour alpha) « LLOCA 
HONS ». 

Pour la definition de cases en serie, 
le programme maintient par defaut 
Toption Alpha/Value si Ton sort 
d'une case en mode deplacement et 
non par RETURN. 

Enfin, et c'esl la le plus gros pro- 
hleme pour le possesseur d'Apple 11 
Plus, il y a deux fois moins de place 

disponible avec Multiplan qu'avec 

son grand frere. J'ai convert] deux 

tableaux a partir de Visicalc ; voici 
les resultats : 





Memoire occupee 


Visicalc 


Multiplan 


Tableau 1 
Tableau 2 


27 % 
48 % 


54 % 
98 % 



En outre, le second tableau se reral- 
culait en 5 secundes avec Visicalc, et 
20 secondes avec Multiplan (4 fois 
plus lent). 

Ceci nous montre qu'avec la carte 
langage et Multiplan. la capacite est 
similaire a celle de Visicalc sans carte 
langage. Bien entendu. 11 me reste 



avec Multiplan la possibihte de 
deporter une partie du tableau dans 
des tableaux annexes que je relierai 
ensuite au tableau principal : dans 

ce cas. seules les informations des 
tableaux annexes devant etre trans- 
ferees a d'aulres tableaux actifs 
« occupent o de la place en 
memoire. 



PRIONS A 
30U(?NAL^ 




Trues et astuces 
Le travail au noir des blancs... 

Les blancs entres au clavier, con- 
trairement a ce que disent les 
manuels, out une impuitance. 
Essayez d'entrer. puis de lister le 
programme suivant . 

10 DRAW 1 AT N,M 
Zi) DRAW 2 AiN.M 
30 HPLOT B.A TO C,D 
40 HPLOT B.ATO CD 
Vous pourrez constater que 
« ATO » et « ATN » sont tokeni- 
2es avec les mots reserves « TO » 
et « ATN » , alors que « AT O » et 
« AT N » le sunt avec « AT ». 
Les fanatiques de Tassembleur 
pourront trouver ia raison de tout 
cela en epluchant la routine 
Applesoft debutant en SUbbU. 



Derniere critique : il est obligatoire 
d avoir Timprimante en slot 1. Je 
trouve ce type de contrainle reyrel- 
table : que faire si, pour utiliser un 
proujeiel de credliun yidphique, 
mon imprimante thermique Hnit 
aussi se tr-ouver sur ce slot ? Je ne 
peux changer mes cartes sans arret, 
les Apples ne sont pas prevus pour 
cela, on sen apercoit vite... 

Conclusion 

La phase d adaptation a partir He 
Visicalc une fois passee, Multiplan 
est un excellent programme, sous 
reserve que I on ne soil pas bloque 
par la memoire . Je n'hesiterai pas a 
Tachetei avec un Apple //e ou avec 
un Apple II Plus equipe dune exten- 
sion memoire 32 K ou plus et d'un 
programme de boot Multiplan 
sachant exploiter la memoire supple- 
mentaire , 

Si je ne dispose que d'un Apple 
64 K, j'utiliserai Multiplan si la 
nature des tableaux que je suis 
amene a manier s'aceommode du 
decoupage en plusieurs tableaux. 
Possedant deja Visicalc, j'estime que 
Multiplan m'appoite suffisamment 
pour Tacquerir quand meme. Dans 
ce cas, selon l application. je selec- 
tionne le programme le mleux 
adapte, en n'oubliant pas que la pos- 
sibilite de conversion n'existe 
aujourd'hui que dans un sens... 

Nous venons, dans une societe, de 
developper sur Sinus un plan strate- 

gique a huit ans avec Multiplan. Ce 
plan concernait la societe francaise 
et sa filiate americaine, plusieurs acti- 
vity et des analyses detaillees de la 
production, des ressources humai- 
nes,... Au total, plus de 20 tableaux 
relies les uns aux autres. Impression- 
nant ! 



LILLE LILLE 


LILLE 


LILLE 






• Logiciels standards et sur mesure. 

• Interfaces, Peripheriques. 

• C on t role de processus. 

• Alarme, Securite. 

• Commande a distance. 




^appkz computer 

dragon 

oric. 

oki 

epson 
fist 


iPQi 172, RUE SOLFERINO. 59800 LILLE - TEL. (20) 57.91 .87 
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Effacement de directory en Pascal 

Regis Lardennois 




Apres avoir passe trois numeros de 
Pom's a faire ['analyse du directory 
Pascal avec Michel Crimont, nous 
allons voir maintenant comment 
effacer de la memoire dc l'Apple le 
directory de la derniere disquette 
lue... A quoi cela sert-il ? 
Chaque fois qu'une operation de 
lecture ou d'ecriture est effectuee sur 
une disquette, son directory est 
place en haul de la pile reserve aux 
variables dynamiques (heap). 11 reste 
en fantome a cet emplacement, 
e'est-a-dire invisible (les pointeurs de 
pile accessibles aux utilisateurs n'en 
tLennent pas compte) tant qu'il n'y a 
pas utilisation de eette pile (et sans 
doute aussi tant qu'il n'y a pas de 
collision avec le sommet du stack). 

Lors des acces ulterieurs aux dis- 
quettes, ce directory est utilised 

Si uu fichier esL appele par un nom 
de volume (nom de disquette), et 
que ce nom correspond a celui ainsi 
place en memoir*?, rOpp.rating 
System fait Thypothese que la dis- 
quettp n'a pas ete changee, et done 
que le directory en memoire est le 
bon. 

Si un fichier est appele par un 
numero d'unite (sfc'l pour le 
drive 1). il lit le nom de volume et 
compare celui ci a celui du directory 
en memoire. S'il y a identity de 
nom, il suppose la aussi que 
lensemble du directory est le meme. 

On comprendra aiseinenl les cdias- 
trophes qui peuvent se produire si 
deux disquettes differentes portant le 
meme nom dp volume sont utilisees 
successivement. 

Bien entendu. cela est clairement 
explique dans les manuels Apple 11, 
qui soulignent la necessite d'eviter 
F utilisation de disquettes portant le 
meme nom de volume. Malheureu- 
sement, en particulier pour les pro- 
grammes de gestion. la prudence 
requiert le recours a des disquertes 
de sauvegarde qui. e:=~: ::::et; 
giobalement, portent le metric norr. 



Le programme introduit ici montre 
qu'il suf fit d'une seule instruction fai- 
sant reference au heap pour que 
l'Apple II n'utilise plus le directory en 
memoire. 

Mise en oeuvre 

Tout d'abord, executer ce pro- 
gramme. On peut verifier que, si Ton 
essaie d'acceder deux fois de suite a 

un fichier sur la meme disquette, 

l'Apple II ne lit qu'une fois le direc- 
tory (mise en rotation du drive) tan- 
dis que , si la procedure d'effacement 
a ete executes, l'Apple II doit aller 
relire le directory. 

Remarques 

Pour que la demonstration fonc- 
tinnne r.orrecternent, les disquettes 
APPLE 1 et APPLC2 doivent etre 
reellement presentes : autrement. il 
ne peut y avoir de lecture du direc- 
tory. 

Dans le cas de l'Apple III, il semble 
qu'il y ait toujours relecture du direc- 
tory complet d'une disquette avant 
lecture ou ecriture, et je n'ai pas 
reussi a provoquer de destruction de 
disquette (NDLR : a quoi mene 
1'informatique !) . 



Par mntre, j'ai Heja en des proble- 
mes en lecture avec des disquettes 
formatees sur Apple ///. Je n'ai pas 
eu le temps d'en approfondir les cir- 
constances, mais ils ont disparu une 
fois le procede decrit ci-dessus appli- 
que. 

II s'agissait d'une non-relecture du 
directory en lecture avec pourtant 
des disquettes portant des noms dif- 
ferent^, ce qui semble etre un bug 
reel dans l'Operatlng System de 
l'Apple ///. 

Application pratique 

Ce programme de test doit etre 
place sur une disquette dite dis- 
quette PROGRAMME durant son 
execution et, a la demande, rempla- 
cee par une disquette vierge de 
meme nom. Si vous ne demandez 
pas de lecture du directory de la 
nouvelle disquette, vous retrouverez 
en plus du fichier TEST tout le direc- 
tory de la premiere disquette PRO- 
GRAMME sur la seconde. 
Attention : la seconde disquette 
PROGRAMME sera d&ruite et la 
vraie risque de 1'etre en cas d'erreur 
de manipulation. II est done con- 
seille de proteger contre recriture la 
vraie disquette PROGRAMME. 
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PROGRAM CLEARD I RECTORY; 

UAR CL : CHAR j 

C1fM-£> 

PROCEDURE TESTER! rUAR F i FILE OF INTEGER; 
BEGIN RESET* F, ' APPLE l:TEST'> ;CL03E(F> ; 



END; 

PROCEDURE TESTER2 ; VAR F : FILE OF INTEGER; 
BEGIN RESET<F,'APPLE2=TEST' > ;CLOSE(F) ; 
END; 



{ »e fichier TEST 

< pas exister car 

i il y a toujours 

t du directory 



ne doi t > 
au t r emen t > 
rel ecture) 

> 



PROCEDURE EFFACER; VAR Pe 
BEGIN MARK C P0 > ; 
END; 



INTEGER] 



BEGIN REPEAT WRITE ( CHRC 12) > ; < APPLE II > 
WRITE(CHRC28)> ; < APPLE /// } 
WRITELNC 'VOULEZ-VDUS ? ' ) ; 

WRITELN<M TESTER LA PRESENCE D"UN FICHIER DRIUE 1') 
WRITELNC2 TESTER LA PRESENCE D"UN FICHIER DRIVE 2') 
WRITELN<'3 EFFACER LE DIRECTORY EN MEMO I RE O J 
WRITELN( 'esc FIN") $ 
READCCL) ;WRITELN; 

CASE CL OF '1'rTESTERl; 

'2' :TESTER2; 
'3' : EFFACER; 

END; 

UNTIL CL=CHR<27> ; 



END. 



Suite et fin page 9 



Creation de fichiers EXEC 

Yuan Koenig 



Le petit programme en BASIC ci- 
contre a ete inspire par le pro- 
gramme de creation de fichier EXEC 
present^ par Bruno Rives (Pom's 3, 
pages 55-56 : Recueii, pages 142- 
143). 

L'inconvenient du programme, te! 
qu i! etait presente, residait dans son 
incapacity a accepter des instructions 
comportant des separateurs, par 
exemple POKE A f B. 

Le programme ci contre tourne la 
difficulty en realisant un « INPUT 
ANYTHING*, e'est-a-dire qu'il 
autorise la rentree de n'amporte 
quelle chaine. On pourra noter 1'ins- 
truction 230 dans laquelle I'utilisa- 
tion du * ON... GOTO » fournit 
Tequivalent dun « IF... THEN... 
ELSE ». 



1 W = CHFH (4) :R* = CHR* ( 13) :G* = C 
HR* <7> :FG* ■ CHR* C8> : TEXT s H 
OME : PRINT "DOhWEZ LE NOM DU FIC 
HIER EXEC A CREER" : INPUT H*i PRI 
NT WOPENW: PRINT : PRINT ■ DON 
NEZ LES COTtiANDES A EXE CUTER" s PR 
INT ■ <RETURN> POUR TERMINER" 
PRINT :C* = 

GET X*s IF X* — R* THEN ON LEN <C* 

) > GOTO 170; 60TQ 200 
IF XI = FG* £*JD LEN <C*> > THEN C 
• - MID* <C*,1, LEN (C*> - 1>: P 
RlhfT X»" "X»|« GOTO 90 

IF ASC (X*) C 32 THEN PRINT G*; s G 
OTO 99 

160 C* = C* + X*: PRINT X*;: GOTO 99 

PRINT : PRINT D*"WRITE"N*: PRINT C* 

: PRINT D*s GOTO 89 
PRINT : PRINT D»"CLQSE-N*: PRINT : 
PRINT "VOULEZ-VOUS TESTER CE FICH 
I ER EXEC C 0/N> ■ ; 
GET A*: ON A* < "N" OR A» > '0' GOT 
□ 238: PRINT : ON A* - "N" GOTO 2 

£0: PRINT 2 PRINT D*"EXEC"N* 
END 



89 

99 

92 



95 



190 



266 



238 



2<5« 
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Boot PLE + CRAE 

Michel Marquis 



Suite a Particle d'Herve Thiriez dans 
le Pom's 1, dans lequel il presente 
les possibilites du PLE (Program 
Line Editor) et du CRAE (Co- 
Resident Applesoft Editor), d'aucunb 
ont pu regretter que Ton doive char- 
ger manuelleinent CRAE en 
memoire apres avoir « boore » PLE, 
ce dernier pouvant fitre charge auto- 
matiquement h parfir du HELLO. 

Je ne reviendrai pas sur I'interet de 
ces deux programmes ni sur leurs 
propres commandes, ces dernieres 
etant tres largement expliquees dans 
les articles precites, mais plutot sur le 
moyen de les charger en memoire 
sans aucune intervention naturelle, 
si ce n'est la rnise sous tension de 
votre Apple preTSre" ! 

Je me suis done cunfectionne une 
disquette qui « hoote » directement 
ces deux ulilitaiies d'aide a la pro- 
grarnrnation. Etant enseignant, j'ai 
pu constater que les stagioires 
n'acceptent plus de travailler autre- 
ment que sous ce nouvel editeur 
PLE + CKAE, surtout s'ils ont peine 
quelque peu sur les corrections par 
ESC I, J... 

L' obstacle majeur pour la realisation 
de cette association est de supprimer 
I'effet de I instruction PRINT 
CHR$(4)"FP" contenue dans le pro- 
gramme PLE. En effet, il n'est pas 
question de traiter une. quplconque 
Instruction de chaigement de CRAE 
apres cela. La rnethode que j'ai 
employee necessite plusieurs etapes. 
que je detaille ci-dessous. 

Premiere etape 

Initialiser une disquette avec le pro- 
gramme HELLO PLE + CRAE sui- 
vant : 



Deuxi&me £tape 

Charger PLE avec LOAD PLE.FP. 
Ce programme comporte une partie 
en BASIC, suivie d'une partie en 
assembleur. 

La fin est identifiee par le pointeur 
de fin de Program Text PRGEND 
situe en $AF-$B0 en page Zero (on 

trouve normalement $1001). 
On peut trouver I'adresse de debut 
en passant en mode moniteur el en 
examinant la memoire a partir de 
$ 800 jusqu'au debut des instruc- 
tions en assembleur : 

NOP 

NOP 

NOP 

NOP 

TXA 

PHA 

JSR $FF5B 
Cela se situe normalement. si Ton 
n'a pas modifie les lignes en BASIC 
du PLE, a I'adresse S8E0. 

Troisieme etape 

Calculer la longueur du programme 
en assembleur en effectual il la sous- 
traction (adresse de fin + 1) 
(adresse de debut) = $1001 - $8E0 
= $721. 

Quatrieme etape 

Deplacer ce bloc destruction en 
assembleur d I'adresse $3000, en 
mode (adresse de destination) <1 
(adresse de debut). (aiJr. de fin) M. 
soit ici : 3000 < 8E0.1001M 

Cinquieme Gtape 

Effectuer la sauvegarde sur la dis- 
quette inilidlisee du bloc ainsi 



deplace par la cuimnande . BSAVE 
PLE, AS3000. I.S72L 

Sixieme etape 

Entrer le programme ci-dessous, et 
Fenregistrer sur la disquette sous le 
nom BOOT PLE + CRAE. 

SeptiGme Gtape 

Copier sur la meme disquette 1c pro- 
gramme binaire livre avec CRAE 
(sur ma disquGtte, il s'appelait PLE. 
EDIT. PROD), effectuer la sauve- 
garde de ce programme avec 
BSAVE CRAE,A$7400,L$1C00. 

Nous rappelons que les adresses 
AA60/61 et AA72/73 donnent res- 
pectivement la longueur et I'adresse 
de chargement du dernier pro- 
yrdiume binaire manipule. 
NDLR ; il est aussi possible de trans 
ferer PLL.LD1T.PROD avec le pro- 
gramme FID fourni sur la disquette 
MA5TLK, a condition de le rebapti- 
ser CRAE, puisquc cost sous cg 
nom qu il est appeie par le pro- 
gramme decrit dans la sixieme 

etape. 

Huitieme etape 

II ne vous rcstc plus qu a « booter * 
pour vous trouver apres quelques 
instants de patience en SUPER EDI- 
TEUR. N'oubliez pas d'appuyei sui 
& pour beneficier des possibilites de 
CRAE. 

Remarque : lout ceci s' applique h la 
version 48 K de PApple II, mais 
vous n'aurez aucun mal a l'adapter a 
la capacite memoire de votre 
Apple... 



S MODIFIES PAR PLE 
POKE 1915,135: POKE 18 14,6: POKE 181 

3,76: REM MODIFICATION DU VECTEU 

R fx A *8700 f ADRESSE DE DEBUT DU 

PLC APRES QU'IL SE SOIT DEPLACE P 

AR LUI-fiEME 
PRINT D* ; " BLOAD CRAF" : REM CHARGEME 

NT DE CRAE 
POKE 111,249: POKE 112,115: REM MIS 

E A JOUR DES POINTEURS 
POKE 113,249: POKE 116,115: REM FRE 

TOP ET HI MEM A LA VALEUR *73F0 
NEW : REM NETTOYAGE DE LA PARTIE DE 
LA MEMOIRE N0N PROTEGEE 



1 REM — PROGRAMME HELLO PLE* CRAE — 
10 TEXT : HOME : INVERSE 

20 VTAB 5: HTAB 13: PRINT "SUPER ED1TEU 
R m 

38 VTAB 8: HTAB 14: PRINT "PLE ET CRAE" 
40 PRINT CHR* <4>"RUN BOOT PLE* CRAE" : 
NORMAL 



50 

1 REM ~ PROGRAMME BOOT PLE+CRAE — 

10 D% = CHR* <4) : PRINT D*;"BRUN PLE": 60 

REM LAN CEMENT DE PLE 
20 CALL - 22572: REM INITIALISATION 70 

ET CONSTRUCTION DES BUFFERS DU DO 
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Un programme de fondu enchaine 



Denis Bureau 



Le programme suivani permet 
d'effectuer un fondu enchaine par 
echange tres rapide de deux pages 
giaphiques haute resolution. II faut 
tout d'abord charger en memoire le 
programme par BLOAD HR 
TRANS, et les images souhaitees 
dans \es trois pages graphiques 
debutant en $2000, $4000 el 
$6000. 

HR TRANS - Big Mac 



II buffit ensuite de faire un 
POKE 7.32'MouM est le numero 
(1, 2 ou 3) de la premiere page gra- 
phique desiree. Un POKE 9.32'N 
nil N est le numero de la seconde 
page graphique desiree compleu; le 
travail. CALL 768 lance 1'echange 
des deux pages. 



programme est proposee sur le 
HELLO de la disquette d'accompa- 
gnement de ce numero de Pom's. 

Le programme en BASIC ci-dessous 
vous permet de creer un effet de 
fondu enchaine entre trois images 
dont vous definisscz les noms dans 
les instructions 100-120. 



NDLR : une demonstration de ce 

HR TRANS DEMO 



i 

2 
3 
4 
5 
6 
7 
9 
9 
18 
11 
12 
13 



X * 

X FONDU ENCHAINE * 

X X 

X AVEC 3 PAGES HR X 

X X 

X - D. SUREAU - X 

X X 
XXXXXXXXXXXXXXXXXXXX 

MAX I = *888C 

X UTILISE *6,*7,*8,*? 



14 




ORG 


*3Q8 


15 








16 




LDA 




17 




STA 


*6 


18 




STA 


*8 


19 








28 








21 


TRANS 


LDY 


tt*88 


22 




LDA 


*7 


23 




CLC 




24 




ADC 


#*28 


25 




STA 


MAXI 


26 








27 


LOOP 


LDA 


<*6> ,Y 


28 




PHA 




29 




LDA 


<*8) ,Y 


39 




STA 


<*6) ,Y 


31 




PLA 




32 




STA 


<*8> ,Y 


33 








34 




I NY 




35 




BNE 


LOOP 


36 




INC 


*7 


37 




INC 


4? 


38 




LDA 


%7 


39 




CMP 


MAXI 


48 




BNE 


LOOP 


41 








42 




RTS 





■ SOMMET 
; PAGE 



;TRANSFERT 



3 IF PEEK (18) = 1 THEN Id 

7 PRINT CHR* (4) "BLOAD HR TRANS' 

18 TEXT : HOME 

28 COLOR= 18 

38 HLIN 18 ,38 AT 28 

48 HLIN 18,38 AT 28 

58 ULIN 28 ,28 AT 18 

66 VLIN 28 ,28 AT 38 

78 VTAB 13: HTAB 15: PRINT "DEMO TRANS 
HR" 

75 VTAB 28 i PRINT ■ CHARGEMENT DES LO 

GOS. . .PATIENCE." 
88 D* - CHR* C4) + "BLOAD" 
98 IF PEEK (18) = 1 THEN 158 
POKE 18 , 1 
PRINT D*" Image no. 1,A81?2- 
PRINT D*" Image no. 2,A16384" 
PRINT M'lm^e no. 3.A24576' 
POKE - 16394, 0i POKE - 16297, 0i P 
OKE - 16380,8 
151 POKE - 16368,8 

288 POKE 7,32s POKE 9,64: CALL 768 
250 60SUB 1088 

380 POKE 7,32: POKE 9,96: CALL 768 
350 GOS LIB 1088 

488 POKE 7,32s POKE 9,64: CALL 768 
458 OOSUB 1808 

580 POKE 7,64s POKE ?,?6l CALL 768 
558 GQSUB 1888 

680 IF PEEK < - 16384> > 128 THEN 780 
650 GOTO 280 
780 TEXT : END 

1800 FOR I ■ 1 TO 50 s NEXT : RETURN 



95 

180 

110 

120 

150 



Recapitulation 



3 CALL -151 



*300.324 



0368- 


A9 


80 


85 


06 


85 


08 


A8 


80 


8388- 


A5 


87 


18 


69 


20 


85 


8C 


Bl 


9318- 


86 


48 


Bl 


08 


91 


06 


68 


91 


8318- 


88 


C8 


D8 


F3 


E6 


87 


E6 


8? 


0328- 


A5 


87 


C5 


0C 


D8 


E9 


60 





X3D8G 
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Les quatre ponts 

Olivier bierz 



Le petit jeu en Applesoft que voiri 
m'a ete inspire par un de ces nom- 
brcux jcuk electron iqucs. Game and 
Watch en tous genres- Ayant w ce 
jeu, je me suls demande s'il eiail dif- 
ficile d'en programmer un : la 
reponse est «■ non ». 



Le bunkijeu esr de reussr a erape- 
:."=r es z~~s ze >~ r.:->«: Coiiiiue 
vous pouvez le voir, toui le jeu est 
ecrit en Applesoft. la seule particula- 
rite resident dans des octets consti- 
tuant une table de formes. 



Ceux qui desirent se renseigner sur 

la creation de tabes de formes peu- 
uent lire 1 article de Dominique 
Compere (Pom's 4 pages 19-28, ou 
Recueil pages 146 et suivantcs) . 



Les quatre ponts 



ILISTiLES 4 PONTS. 

18 TEXT : HOME : (/TAB 5: INVERSE : PR IN 

T " OLIVIER HERZ PRESENTE : " 
20 PRINT : PRINT : NORMAL : PRINT " L 
ES QUATRES PONTS 

30 I = I ;E = 0:F » 9:61 = 6:62 = 0:G3 = 
0iG4 - 0rG - 0:A = 0:B « 8:C == 0: 
X = 8:Y = 8:N = 8:K = 8:D = 8:S = 
0:H = 8 

40 DIM A< 19> ,B<v> ,C<9> : PRINT : PRINT ; 

PRINT "VOUS DEVEZ PLACER VOTRE P 

ONT A L'UN DES QUATRE EMPLACEMENT 

S POSSIBLES" 
58 PRINT : PRINT ■ -> GRACE AUX TOUCHE 

S A K 

Z M" 

60 PRINT " -> OU GRACE A UOTRE JOYSTIC 
K" 

78 PRINT : PRINT "CECI AF IN DE PERMETTR 
E AUX BONSHOMMES DE PASSER SANS 
ENCOMBRE 

80 PRINT : PRINT : PRINT "VERSION CLAVI 

ER OU JOYSTICK ? " ; 
83 GET A$! IF A* < > "J" AND A* <. > " 

C" THEN 85 

90 PRINT A$;JO - 8: IF A$ - "J" THEN JO 
= 1 

95 IF PEEK <768) < > 4 THEN 2888 
188 POKE 232,0: POKE 233,3: SCALE= 1: R 
GT= 8 

lie HOME ; HGR : HCOLOR- 3: HP LOT 6,8: 
CALL 62454 

128 HCOLOR= 1: FOR J = 48 TO 88 : HPLOT 
0,J TO 279 NEXT : FOR J = 128 
TO 168: HPLOT 0,J TO 279, J: NEXT 

138 HCOLOR- 3: FOR J — 48 TO 65 : GOSUD 
135: NEXT : FOR J = 128 TO 145: G 
OSUB 135: NEXT : HCOLOR= 2: FOR J 
= d6 TO 80; GOSUB 135: NEXT : FO 
R J = 146 TO 168: GOSUB 135: NEXT 
: GOTO 140 

135 HPLOT 36, J TO 113, J: HPLOT 168, J TO 
195, J: RETURN 

140 REM 

168 VTAB 21: HTAB 1: PRINT "SCORE", "HI - 
SC" , "NOYES" ; : UTAB 22: HTAB 1: PR 
INT S,H,K; 

170 G3 = INT < RND < 1) X 4> :G3 = 65 X ( 



1: IF J = 
- i: GOTO 

7 OR J 
G 



1 

1) : I F A 
.5 THEN 300 



G3 = 8) + 90 X <G3 = D + 75 X <G 

3 = 2> + 77 X CG3 = 3) : GOSUB 920 
28S I = 3 - [SB = 8:C = 9:D = 6: GOSUB 9 

80: FOR J = TO 19 
218 IF AC J) < > 1 THEN 250 
220 A<J) = 0:C<C) = J:C = C + 

8 OR J = 10 THEN A = A 

259 

230 AC J - 1) = I: IF J = 4 OR J 

= 14 OR J = 17 THEN D = J - 1 
OTO 250 
248 B(B)=J-1:B=B 
258 NEXT 

268 N = INT < SQR (S) / 2 + 

N OR RND ( 1) > 
270 J- INT < 2 X RND <1>> X 10 + 9: IF 
ACJ - 1) = 3 - I OR A<J) =3-1 
OR A<6) = I OR A< 16) = I THEN 30 



288 B(B) = J:B = B + 1 :A = A + 1:A<J) = 
I 

300 GOSUB 900: IF C = 8 THEN 328 

310 HC0LOR= 3: FOR J = 8 TO C - 1 iE = 

INT <C<J> / 18) ;F = C<J) - 10 X E 
: GOSUB 800: DRAW 2 + E AT X,Y: N 
EXT 

320 IF B = 8 THEN 340 

330 HC0LOR= 0: FOR J = TO B - 1 :E = 

INT <B<J> / 10) :F = B<J> - 10 X E 
• GOSUB 808: HCQLDR= 0: DRAW 2 + 
E AT X,Y: NEXT 

348 IF D = THEN FOR J - I TO 3;E = 
PEEK C - 16336) : NEXT : GOTO 200 

358 E = INT <D / 10) iF - D - 10 X E: GO 
SUB 880: IF 6 = THEN HCOLOR= 
: DRAW 2+EATX,Y:S=S+ !:UT 
AB 22: HTAB 1: PRINT S;: FOR J = 
1 TO 10:E = PEEK ( - 16-336): NEX 
T = GOTO 200 

360 GOSUB 800 :Y = Y * 12 + <E = 1) :X = 
X *■ 2 - 16 X (E = 1) : HCOLOR= 0: 
DRAW 1 AT X,Y: FOR J = 1 TO 100:Q 
= PEEK ( - 16336): NEXT :A(D) = 
:A = A - 1 

370 K = K + 1: V/TAB 22: HTAB 1: PRINT , , 
K; : IF K = 3 THEN 400 

380 HCOLOR= 3: DRAW 1 AT X,Yt FOR J = 1 
TO 238 - 158 X JO: GOSUB 900: NE 
XT : GOTO ?fift 

400 VTAB 23: HTAB 1: PRINT "VOULEZ-VOUS 
REJOUER ? " ; 

410 POKE - 16368,8: GET A*: PRINT A*s 
IF A* — "N" THEN END 

420 FOR J = TO 19:A(J) = 0: NEXT :I = 
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tiA - 0:K = 8: IF S ) H THEN H = 
S 

439 S = 9: GOTO 1 18 

899 IF E - 1 THEN 826 

819 X - 258 - 28 * FtY = 46: RETURN 

829 X = 21 + 28 X F:Y = 125: RETURN 

908 IF JO - 1 THEN 1808 

985 IF PEEK ( - 16384) < 128 THEN RET 
URN 

918 G3 = PEEK < - 16384? - 128; POKE - 
16368,8 

920 IF 63 = 90 THEN G - I3;63 = 86:64 - 

133: GOTO 790 
938 IF 63 = 75 THEN G = 3iG3 — 169 :G4 = 

53: GOTO 990 
940 IF G3 = 77 THEN G = 16: G3 = 168:G4 

= 133: GOTO 990 
950 IF G3 = 65 THEN B = 6:83 = 86 : G4 = 

53: GOTO 999 
968 RETURN 

998 HCOLOR= 3: DRAW 4 AT G1.G2: HCOLOR= 
0s DRAW 4 AT G3,G4:G1 - G3:G2 - 
G4: RETURN 

1808 G3 = POL <0): IF G3 > 127 THEN 104 


10 10 64 = P£>L W> : IF G4 > 127 THEN 183 


1020 G = 6:G3 ■ 86:G4 - 53: GOTO 1078 
1030 G = 13:G3 = 86:G4 = 133: GOTO 1970 
1648 64 = PDL < 1> s IF 64 > 127 THEN 106 




10 50 G - 3:G3 - 168:G4 = 53: GOTO 1070 
1060 G = 16:G3 = 168:G4 = 133 
1070 IF 61 = G3 AND G2 = 64 THEN RETUR 
N 

1080 GOTO 990 
2090 GOTO 2020 

20 10 HEX** = HEXS + " ND823G" : FOR I = 1 
TO LEN (HEX*): POKE 511 + I, ASC 
< MID* <HEX*,I,1>> + 128: NEXT : 
POKE 72,8; RETURN 



OQ Oft 


ntA* 


— 


0300 : 


04 


00 


0A 


00 


26 


00 


5A 






8E 


00 36 


0E 


76 


76 


4D 


29 


38 


3F 




— -■ 


0D 


2D 38 


IF 


IF 


67 


2D 


2D 


1C 


3F 






49 


49 39 


F6 


F6 


F6 


06 


00 


24 


2D 




2D 


2D 


25 24 


24 


E4 


5B 


38 


38 


20 


0C 




HL 


0C 


25 74 


5F 


28 


2D 


38 


3F 


27 


2D 




2D 


1C 


: GOSUB 20 10: CALL - 


- 144 


2030 


HEX* 


— 


0340 : 


3F 


67 


2D 


4D 


89 


92 


92 




12 


17 


17 3F 


38 


38 


36 


36 


36 


16 


2A 




2D 


35 


36 36 


36 


2D 


05 


00 


24 


3F 


3F 




3F 


27 


24 24 


24 


4D 


28 


28 


20 


1C 


iC 




1C 


3F 


24 2C 


38 


3F 


28 


2D 


25 


3F 


3F 




67 


2D 


E5 39 


FF 


DB 


92 


92 


12 


AA 


15 




2D 


28 


: GOSUB 29 10: CALL - 


- 144 


2040 


HEX* 


= -0380: 


28 


36 


36 


36 


36 


36 


3F 




3F 


36 


36 36 


3E 


3F 


08 


2C 


38 


2C 


6D 




38 


3F 


27 2D 


2D 


2D 


20, 


2D 


2D 


2D 


2D 




2D 


2D 


2D 2D 


2D 


35 


3F 


Sf 


4E 


2D 


3E 




0E 
A 


36 


08" : GOSUB 28 10: CALL - 


- 1 



2050 GOTO 100 



Courrier des lecteurs 



Un lecteur nous ayant envoye la 
petite an nonce suivante "Cause 
double emploi. vends logiciels ame- 
ricains originaux pour Apple II*, 
nous avons repondu comme suit : 

Cher lecteur, 

11 ne nous est malheureusement pas 
possible, bien que fes annonces 
soient grotuites dans Pom's, de 
pubiier celle que uous nous propo- 
sez. 

En effet, des esprits n\al intentionnes 
pnurraip.nt crnire qu'nprAs nunir 
acquis ces logiciels americains, et les 
avoir intelligement dupliques. uous 
cherchiez a en amortir le cout. 

Notre politique editoriale est tres 
stricte sur le plan ethique ; nous pre- 
ferons, dans le doute, un exces de 
severite plutot que de preter le jlanc 
a d'eventuelles critiques. 

Vous demandez a uos lecteurs et a 
uos abonnes de vous echre. Person- 
nellement. j'ai longtemps hesite car. 

il est dur d'aoouer, je suis bloque. 

S.O.S., Pom's, que dois-je faire ? 
Et pourtant. je ne uois que quatre 
solutions : 



1 Me resigner a des programmes 
rudimentaires. 

2. Acheter des logiciels de « confec- 
tion* sans vrairnent cornprendre ce 
qui s'y passe. 

3. Etudier. etudier encore, rnais 
dans quels livres trouverai-ie ce qui 
m'interesse ? 

4. Vous eenre. car je dois etre le 
type meme du neophvte qui 
demarre et a besom d'une revue 
bienueillante . 

J'aimerais trouver une solution a 
mes problimes actuels de program- 
mation : 

• dans un ajfichage long, comment 
bloquer I'ecran a certames lignes ? 

* comment trier un tableau qui com - 
porte des donnees alphanumeric 
ques et des uultum ? 

M. Albert Dazin • 75020 Paris. 

Pour bloquer une partie de Tecran, il 
suffit d'utiliser les POKE'S. Ainsi, 
POKE 34, n bloque les n premieres 
lignes de I'ecran, comme vous pou- 
vez le constater facilement. Dans ce 
cas, HOME ne nettoie plus la panie 
bloquee. Le haut de I'ecran reste 
bloque tant que vous n'utilisez pas 



TEXT ou un autre POKR 34, x (aver. 
x<n). 

Un tableau ne peut contenir a la fois 
des caracteres alphanumeriques et 
des valours, sauf si celles ci sont defi 
mes comme des alphas. En effet, le 
tableau porte un norn dc type 
NOM$( ), ou de type NOM( ). Si le 
tableau est alphanumerique, les 
valeurs numeriques seront classees 
selon Tordre alphabetique (celui du 
dictionnaire) : si par exemple, vous 
devez classer «2» et « 111 111 
passe avant 2 car son premier carac- 
tere est «plus petit ». 



Voici le patch a apporter a HAIFA 
(Pom's numero 5) pour obtenir : 
1.234.567.89F 
auec l instruction : 

& PRINT UbH « . . 

,-- F» ; 1234567.89. 

Pour un 48K, il faut opercr en deux 
etapes successiues ; 

BLOAD HAIFA. CODE1,A$6800. 
En moniteur : 

7281:46 

7285.2C 

BSAVE HAIFA.CQDE1,A$6800. 
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J. $1000 

BLOAD HAIFA.CODE2.AS7800. 
En moniteur : 

7964.2E 

7979:46 

7990:46 

7993:2E 

BSAVE HAIFA.CODE2.A$7800, 
L$1000. 

M. Chauuiere - 21300 Chenove. 

Si, apres avoir utilise le programme 
HELLO de Thierry Le Taltec ei Jac- 
ques Tran-Van (Pom's numero 6), 
on utilise un programme en assem- 
bler implante en $300. cela ejface 
la page 3 du DOS. On est alors 
oblige de rebooter pour parvenir a 
utiliser le DOS . Y a t il une parade ? 

Andre Babeanu - 78350 Jouy-en- 
Josos. 

Nous transmettons la demande aux 
auteurs. 



II exists aux Pays-Rax une. emission 
sur la chaine nationale Hiluersum 2. 

le dimanche de 19 h 10 a 19 h 45 
sur 747 Khz qui se propose d'emet- 
tre en code des programmes d'infor- 
matique compatibles auec tous les 
micros, y compris I' Apple 11. 

Le systeme BASiCODE est congu 
pour 1 200 bauds. Des experiences 
ont lieu pour le meme protocole a 
300 bauds, qui doit donner une 
reception plus fiable. 

Pour tous renseignements, contacter 
BASICODE. Administrative Alge- 
meen Secretarial, NOS, P.O. Box 
10, 1200 JB Hiluersum. Pays-Bas. 

Thierry Lombry • Hue Tienne-aux- 
Pierres 94 - B. 5150 Wepion - Belgi- 
que. 

1. Le patch de la ROM LowerCase 
est deconnecte par le HELLO de 
Pom's 6. Je suppose que c'est le 
module destine a effacer PLE qui 
est coupable. Puurriez-vuus me 
dire comment modifier HFJ J O 
pout iuiter ce disagreement ? 

2. Je uoudrais {aire quelques remar- 
ques au sujet de SNTX COM- 
PILE (Pom's 6). Qontrairement a 
ce quecrit Herz, TASC ne prouo- 
que pas I'efjacement du pro- 
gramme etudie, mais seulement 
cclui de ses deux premiers octets. 
II $ufftt de memonser ces octets, 
puis de les retablir. D^ailleurs, il 
n'y a pas lieu de - sauvegarder 
104, 104, 175 et 176 puisque fa 
mlse en place de COMPILE ne 
les perturbe pas. 



Si Yon fait tourner le programme ci- 
jolnt, on crie un jichier KO : il suffit 
alors de faire EXEC KO pour lancer 
SNTX COMPILE et recuperet 
ensuite le programme etudie fl sem- 
ble dune possible de creer un pro- 
gramme compile selon les indica- 
tions pricidentes. 

II serait souhaitable de compiler de 
{aeon a replacer sous la HIMEM de 
PLE. On pourrait preuoir de placer 
entre cette HIMEM et SNTX COM- 
PILE les differents octets a memori- 
ser, a sauolr :' 

• les deux premiers octets du pro- 
yrumme &tudi€ • 

• Vindication du slot I de I'impri- 
mante. defini par le jichier EXEC 
et lu par SNTX ; 

• ce serait preferable a I 'implantation 
actuelle en 1912. 1913.... qui 
interferent auec I'imprimante. 

3. Je joins les listings annotes de 
SNTX et FAIT SYNTAXE per- 
mettant dimprimer sur papier les 
messages d'erreurs. 

4. Je uuus stgnate que le pro- 
gramme considere comme une 
erreui une figne de DATA telle 
que : 2000 DATA "Montant : 

Apparemment, ce sont les 
« ; w qui le perturbent. 

Yuan Koenig - MosaXque Oerbino 
Rue du Stadc 06220 Vallauris 



1. Patch de la ROM LC 

Signalons tout d : abord que le menu 
ne detruit pas en fail PLE : PLE se 
contente d'abaisser les buffers du 
DOS et de se loyer ainsi entre le 
DOS et ses buffers, de facon a ne 
pas etre affecte entre autres par la 
commands FP puisqif il se trouve de 
telle fdcun au-dessus de la HIMEM. 
Le menu se contente de remettre ces 
buffers a leur place. Or, le patch 
d'entree de caracteres de la KOM 
LowerCase abaisse de $ 100 ces buf- 
fers et la HIMEM par la meme occa- 
sion. Un autre probleme avec ce 
menu etait le JSR SETKBD du 
debut qui fait un 1N#0 de facon a 
deconnecter la routine d'entree de 
caracteres, ce qui est ncccssaire si 
PLE est present, mais doit etre evite 

dans le cas present. Finalcment, je 
propose le patch suivant, qui evite 
de reassembler le programme de 
menu, en utilisant une « deviation » 
par queiques instructions assembleur 
ajoutees a la fin du code du pro- 
gramme. 

LOAD MENU 
CALL -151 



810 4CFE0C 

CFE 20 53FCAE55AAE0 28 

D06 DOOCAE56AAE09CD005 

DOF A99B4C30 08 4C 13 08 

AF 1700 

SAVE MENU LC 

2. SNTX compile 

Remarquons tout d'abord que le 
programme que j'ai compile est lege- 
rement different du programme 
SNTX, car il n'y avait pas lieu de 
retenir les pointeurs 103, 104, 175 
et 176. La compilation n'a pab ele 
rres facile : j'ai implante la bibliothe- 
que RUNTIME a parte de $6500. 
J'ai ensuite mis le programme objet 
derriere (en decimal 29869). 
L'ensemble a ete calcule de facon a 
ne pas depasser I'adresse $9000, 
afin d'etre compatible avec PLE. 

Quand j ecrivais que TASC efface le 
programme, je pensais bien sur a un 
effacement au sens des commandes 
FP ou NEW et non a un effacement 
physique. En effet, TASC termine 
son execution en mettant a zero les 
memohes 800-801-802, a $801 le 
pointeur 103-104, et a $803 le poin- 
teur 175-176, afrisi que les pointeurs 
105-106, 107-108 et 109-110 : il 
s'agit visiblement d'un NEW (ce n'est 
pas un FP car. si Ton change la 
HIMEM, elle n'est pas retablie) . Pour 
eviter cet ennui, il existe des petits 
programmes en assembleur pcrmct 
tant de recuperer un programme 
efface par NEW ou FP. On peut 
aussi utiliser le fichier EXEC KO cree 
par le programme FAIT KO de la 
page 6o (provenant de votre lettre, 
apres une petite modification). 

3. Version imprimante de SNTX 

Nous n'avons pas la place de mettre 
ici la liste complete de SNTX modifie 
que vous nous envoyez. Voir en 
page 66 la liste des lignes a modifier 
dans SNTX pour pouvoir sorlir 
Tanalyse sur imprimante 

4. Un bug dans SNTX 

Ln ce qui concerne les instructions 
DATA mal comprises par SNTX, 
cela fait partie des 0,1 % a 1 % de 
cas que je pense avoir oublies. Vous 
trouverez en page 66 la liste des 
modifications a apporter pour que ce 
probleme soit resolu. 

Olivier Herz 



J'uhhse HAIFA en version carte lan- 
gage. Pouvez-uous me dire com- 
ment charger un autre programme 
de musique en cours de programme 
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en $DQOO ? Faut-il rejaire 
A=PEEK(-16247). une Jfefe, deux 
fois ? 

P.Y. Gouriou 110, avenue Lartigue. - 
08600 Givet 

Four charger un autre air de musi- 
que dans la version 64K de HAIFA 
(en $D000 dans le BANK 1 de la 
carle langagc) , il faut proceder 



comme HAIFA. EXEC et faire 
(depuis un programme ou bien au 
clavier) deux fois A- PEEK (-16247] 
avant He faire le BLOAD : il est en 
outre conseille de faire A - PEEK 
(-16254) apres ce BLOAD pour 
remettre la carte langage dans 1'ctat 
normal en utilisation de 1" Applesoft. 
De meme, pour charger une autre 
table de caracteres (en $D000. 
$D600. $D900 ou SDCOO sur le 



BANK 2 de la carte langage) il faut 
faire deux fois A = PEEK(-16255) 
avant le BLOAD et A = PEEK 
(-16254) apres. 

Voire question m'a d"ailleurs fait 
decouvrir une erreur dans Ig debut 
de l'annexe 1 de l'article sur HAIFA 
(numero 5 de Pom's) : j'ai inverse 
les r61es des BANKS 1 et 2 de la 
carte langage. 



Fait KO 

J LI ST 

10 D* m CHR* C13) * CHR* <4>:N« = u KO' 
29 PRINT WOPEN"N*[»'DELETE"N"*W0PEN- 

N»D*"WRITE"N* 
38 PRINT -P0KE1?12,PEEKUB3> ;P0KEi?13 t P 

EEK< 184) " 

48 PRINT *POKEiyifl,HttK( I ?5) :P0KE1?15,P 
EEK< 174) ■ 

58 PRINT "P0KE1?16,PEEK<PEEK< 183)+PEEK< 
184)X254> :P0KE19I7,PEEK< I*PEEK< 19 
3> +PFFK< 1 «4) *?5&> ■ 

&8 PRINT "BLOAD SNTX COMPILE" 

78 PRINT "CALL 

71 PRINT ■©■ 

75 PRINT ■ POKE 103, PEEKC ISM 2) : POKE 104, PE 

EK< 19 13) : POKE 175, PEEK< 19 14) : POKE 1 

76,PEEK( 15*15) 
88 PRINT "P0KEPEEK< 1912) +PEEK( 1913) *2b6 

,PEEK( \9\6) ■ 
98 PRINT "POKEl+PEEKC 1912)+PEEK( 1?13)X2 

5A,PFFK( 1917) ' 
95 PRINT "DEL 1,8" 

100 PRINT O*'CL0SE*N*D*'L0CK'N* 



Fait syntaxe IMP 



)LIST 

3ft PRINT "POKE 1914, PEEKC 183) .-POKE 1915 

,PEEK( 184) ' 
48 PRINT "POKE 19 1& , PEEK< 1 75) : POKE 1917 

,PEEK< 176) * 

SNTX IMP 

1LIST 

97 PRINT CHR* <4)"PR*1" CHR* (13): POK 



E 1657,80 :YK = 1= RETURN 
100 IF NOT ERR GOTO 130 
182 IF ERR ftiD YK — 8 THEN GOSUB 97 
184 PRINT • LIGNE "LI" INSTR "1ST" > 

IF ERR — 2 OR ERR * 3 THEN PRIN 

T B*i' 'J 

118 IF ERR C 8 AND ERR < > 8 THEN PRI 

NT "XXXXX " j 
5888 ERR - 11: ON YK = 8 GOSUB 97: PRINT 
•LIGNE "Li - INSTR "1ST* > * Fft*t F 

RR> iPTR = NLs GOTO 18808 
10603 GOSUB 10:LN - A: GOSUB 10;LN = A 

X 256 * LN:LI - LW 
10006 REM 
18818 1ST a 1ST t 1 

12088 PRINT : POKE 1657,48: PRINT CHR* 
<4)"PRH0": PRINT "VOULE2-VOUS RE 
VENIR AU PROGRAM-IE INITIAL? - ( 
1282R PRINT A*: IF A% = "0" THEN POKE 
183, PEEK (1914)3 POKE 184, PEEK 
< 1915) i POKE 175, PEEK ( 1914) l PO 
KE 176, PEEK < 1917) 
20288 PTR - PEEK < I914> + PEEK C1915> 
■ X 256 



SNTX BUG 

J LI ST 

3308 ERR m 12 
3318 GOSUB 18: IF A 
100 

3328 IF A ( > 34 THEN 3318 
3330 GOSUB 10: IF A = « THEN 180 
3348 IF A - 34 THEN 3318 
GOTO 3338 



8 OR A = 59 THEN 



Courricr des clubs 



L' Association Floppymathique 
anime un club de micro- 
informatique sur materiels Apple et 
Sharp. Ce club s'adresse a des jeu- 
nes (a partir de la classe de 4 e ) et a 
des adultes. 

Niveau : initiation ou perfectionne- 
ment. 

Pour tous renseignements, telepho- 
ner le jeudi de 16 li a 18 h uu le 
samedi de 14 h a 18 h au (20) 
73.94.80. Sinon, le soir vers 20 h 
au (20) 89 90.76. 

R. Courouble - Association Floppy- 
mathique - 54, rue de Lille 59100 
Roubaix. 



Le 12 janvier 1983, une vingtainc 
d'architectes. utilisant professionnel- 
lement des Apples 11 ct ///, se sont 
reunis a Paris, a la suite de quoi des 
axes d'interet majeur et des actions 
communes ont ete definis. 

En outre, la fondation d'un club 
d'utilisateurs a ete decidee. Les 
architectes equipes d'Apples sont 
invites a y participer ct pries de se 
faire connaitre a l'adresse ci- 
dessous, afin d'etre informes des 
developpements ulterieurs. 

Ceux qui ne possedent pas encore 
de materiel et qui souhaitent avoir 
des renseignements peuvent nous 



demander la liste des participants, 
afin de contacter le plus prochc. 

Les producteurs de materiels et de 

logiciels susceptibles d'etre utilises 

dans notre profession sont aussi 
prlSs de se faire connailre. 

Jean-Michel Guillaume - 110, ave- 
nue dn General-Leclerc - 75014 
Paris. 



Robotwar 

Appel a tous les utilisateurs de 
Robotwar. Un concours va toe 
organise. Prendre contact 
d T urgence avec Jean Marc Ser- 
vat. Tel. : 651.66.61 (de prefe- 
rence apres 19 heures). 
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Pseudo disque 64 Koclets 


incorpore 1 


i Z 80 CPU. (compatible CP/M*) 


mcorpore 1 


[ 80 colonncs 


incorpore 9 


1 Minuscules 


mcorpore B 


Touches de fonction (lb) 


incorpore H 


Claviei numeiique 


incuipoie 9 


Sortie parallele 


incorpore 1 


Entree/sortie serie 


incorpore ^ 


Support Drive 


mcorpore | 


Sortie Video composite couleur 


incorpore | 


Sortie couleur R.V.B. 


incorpore § 


Bloc de mouvements curseur 


incorpore 1 




14.985 F H.T. fl 




/ \ 





Offre de lancement 



14985 



• CP/M COn,pule "NC 

d '9i<->i research inc 

75o"l'^ s Vau -na rgues 
^•■2 2919 . 74 + T . (exi 



■280 750 F 



/ 



POM'S 



JCR,DES MICRO-ORDINATEURS 

PROFESSIONAL ET GRAND PUBLIC. 



IEUX 

EDUCATION 
GESTION 
BUREAITTIOUE 




APPLE II u*"' u 

Le plus populaire de.s rninro-orriina- 
teurs. 40 K RAM. Basic Applesoft. Une 
garame incomparable de logiciels et 
d'accessoires. 

Apple n + 48 K -f Disk avec ContrOleur 
+ Moniteur 12". 




SHARP PC 1500 

Ordinateur de poche de 1,85 Ko de 
memoire vive extensible avec module 
de 8 K CE 155. 

CE 150 

Mini Table rraqanie 4 couleuis dkecle- 
ment connecteble sur PC 1500. Inter- 
face K 7 incorpor6. 
PC 1500 + CE 150. 

CE 158 




EPSON HX 20 

Un systeme compact 
clavier ecran 
LCD avec lmprimante. 

Micro K 7. 

Extension 16 K. 




EPSON 

Impnmantes de haute qualite d'un- 
pression. Interface parallele type Cen- 
tronics. 

MX 80 FT : 80 ops. 

ou 132 compresses. ^ R OOF] 

MX 100 : 100 cps. 132 caractere* 
ou 233 compresses. [820Qfj 



MX 100 FT ITT 



MX 8 




APPLE III 

L'ouul professiumiel pax excellence. 
12R Ko ou 256 Ko. Unite de disque 
incorporee. Sortie RS 232. Nombrcux 
interfaces disponifoles. Adjonction 
possible d'un disque dnr rie 5 mega. 
Profile. Ecran vert haute resolution 
antiretlets. Clavier Azerty - Qwerty. 
Nous consulter. r^riTi 




COMMODORE VIC 20 

Un vrai micro-ordinateur puissant et 
evoluul id£al pour l'initiation comme 
pour la pratique de la programmation. 
16 uuuleuisRAM 3,5 K. 
Version en PAL. 




ATARI 400 el ROD 
APPLE II E 
CASIO PB 100 
SHARP PC 1251 
SHARP PC 1212 
INTERF. RS 232/PC 1500 
VICTOR II 4S K HR 



TO 7 THOMSON 

Un ordinateur 100% francais 8 Ko 
extensible a32Ko Foirmi avec un teo 
teur optique. Sortie couleur Peritel. 
Clavier Azerty accentue. 
Ideal pour 

apprendre en faniille. 3 650 F 




Vente par correspondence 
Catalogue gratuit sur demande 
Credit 4-36 mois 
Leasing 36-48 mois 
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